Top 10k strings from Educational Compilation 12 (19xx)(-)(ru).trd in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Compilations - Utilities & Educational & Various / Sinclair ZX Spectrum - Compilations - Utilities & Educational - [TRD] (TOSEC-v2007-01-01) /

Back to the directory listing

 355                                                              
  25 "--WY PRAWY--":
  19 "2 LET X=0":
  18 W O P R O S
  16 UUUUUUUUUUUUUUUUUUUUUP
  13 ;N;"-WOPROS":
  13 ;"     WOT PRAWILXNYJ OTWET"
  13 "ILI-   ";
  13 "Da ili Net(D/N)-->";
  13 "//NE TO^NO//"
  13 " operator";:
  12 "3 LET X=X+1":
  11 ;"     MOVNO OTWETITX TAK:"
  11 "4 PRINT X":
  11 "2 PRINT '";:
  11 "  Dlq otweta navmite na ";:
  10 D$="Net.":
  10 D$="  wwedite RUN  ":
  10 "programma?"
  10                        
   9 "otwet  prawilxnyj?"
   9 "+---------+---------+---------+"
   8 "Kak Wy dumaete Wa{":
   8 "6 GO TO 8":
   8 "4 LET X=X+1":
   8 "4 IF A<B THEN GO TO 7":
   7 a(cp,np)=0
   7 "rammy ";:
   7 "Kakoe  ~islo   nape~ataet   |ta"
   7 "5 PRINT '";:
   7 "4 PRINT '";:
   7 "3 LET X=0":
   6 navmi l`bu` klawi{u"
   6 k=i+task*8
   6 D$="GO SUB":
   6 AAAAAAAAAAAAAAAAAAAAAAAA
   6 "|         |         |         |"
   6 "n","NET ","EN"
   6 "Skolxko ~isel nape~ataet  prog-"
   6 "Prodolvaem rabotatx s  disketoj"
   6 "7 PRINT B":
   6 "7 PRINT '";:
   6 "6 PRINT '";:
   6 "5 PRINT A":
   6 "5 NEXT K":
   6 "4 PRINT K":
   6 "4 NEXT K":
   6 "4 LET X(K)=K*K":
   6 "3 PRINT K":
   6 "3 PRINT '";:
   6 "2 DIM X(8)":
   6 "12 PRINT '";:
   6 "1 REM ZIKL":
   6 " funkciq";:
   6  PRINT ";:
   6   Navmite l`bu` klawi{u..."                               
   6           
   5 DDDDDDDDDDDDDDDDDDDD
   5 D$="okonhen":
   5 D$="0 OK, 30:1":
   5 .                          
   5 "programmy?"
   5 "programme ";:
   5 "programma ";:
   5 "^to nape~ataet programma ";:
   5 "Kakoe ~islo nape~ataet program-"
   5 "Kakoe  zna~enie   priswaiwaetsq"
   5 "9 PRINT '";:
   5 "6 NEXT K":
   5 "5 GO TO 3":
   5 "4 PRINT Z":
   5 "3 LET X=K*K":
   5 "3 LET K=K+1":
   5 "2 LET K=0":
   5 "1 REM WOWA":
   5 "1 REM BELKA":
   4 ~@@BDR~DR>
   4 y=d(np,cp):
   4 x=c(np,cp):
   4 t;".";m;".";j
   4 b$="pakavy":
   4 DDDDDDDDDDDDDDDDDDDDDDDDDDDDD
   4 D$="wypoln_ema_ ctroka:":
   4 D$="najmite ENTER":
   4 D$="40 IF N>10 THEN PRINT N":
   4 D$="30>NEXT N":
   4 D$="30 GO TO 10":
   4 D$="20 GO SUB 40":
   4 D$,XS,CS):
   4 BBBBDbBDb"
   4 BBBBDFBDFB
   4 B@@BDJBDJB
   4 B<<<~BB~BB
   4 <<<<DB<DB>
   4 ;"WOT WARIANT PRAWILXNOGO OTWETA"
   4 ;"ESLI PRO^ITALI, NAVMITE NA WWOD"
   4 8888888888
   4 000000000000000000000000000ppp0
   4 .                   
   4 .           
   4 "^to delaet funkciq ";:
   4 "WA[A OCENKA-   ";S/29
   4 "REZULXTAT=';";:
   4 "Napi{ite podprogrammu  wy~isle-"
   4 "GO TO 11"
   4 "7 PRINT S":
   4 "5 PRINT X":
   4 "4 PRINT B$":
   4 "4 LET C$=A$+B$":
   4 "3 INPUT A":
   4 "3 FOR K=1 TO 8":
   4 "20 ","EN"
   4 "2 LET Z=1":
   4 "2 LET S=0":
   4 "2 DATA '";:
   4 "10 ","EN"
   4 "+-----------------------------+"
   4 " PRINT";:
   4 "     6 STOP":
   4  navmite l`bu` klawi{u "
   4   navmite l`bu` klawi{u  "
   3 z1>z;"pada&wi
   3 b$="bukwu":
   3 a(cp,np)>0
   3 a(cp,np)<0
   3 SYMBOL SHIFT";:
   3 D$="coob`enie:":
   3 D$="SILA.COM"+
   3 D$="1 1 1":
   3 D$="0 ok, 20:1":
   3 CCCCCCCCCC
   3 BBBBBBBBBBBBBBBBBBBBBB
   3 BBBBBBBBBBBBBBBBBBBBB
   3 BBBBBBBBBBB
   3 A$="operator 
   3 ;z;"    ";
   3 ;"\LEMENTOW TEKSTA.              ":
   3 ;"ISKL@^ENIE   I   WOSSTANOWLENIE":
   3 88888888888888888
   3 8888888888))))))))8
   3 .                                                 
   3 .                                     
   3 .                                    
   3 *d)/zy)*100
   3 ))/zy)*100
   3 "|  ...                        |"
   3 "ramma ";:
   3 "programmy ";:
   3 "polu~ili sledu`}ij ukazatelx:":
   3 "otwet   prawilxnyj?"
   3 "nape~ataet"
   3 "n","N","NET ","EN"
   3 "komandy":
   3 "^to nape~ataet programma,  esli"
   3 "^to  nape~ataet  programma ";:
   3 "WA[A OCENKA-   ";S/27
   3 "Srawnite dwe programmy:":
   3 "Skolxko operatorow nuvno  doba-"
   3 "POKAZATELX ?'":
   3 "OSNOWANIE ?'":
   3 "Napi{ite komandu dlq wywoda  na"
   3 "Kakie perwye tri ~isla  nape~a-"
   3 "Imeem programmu:":
   3 "Disk-(d),Tape-(t)";q$
   3 "9 LET S=S*A":
   3 "6 LET S=S+M":
   3 "5 PRINT X(K)":
   3 "5 PRINT B":
   3 "5 LET S=S+X":
   3 "5 IF K<20 THEN GO TO 3":
   3 "3 LET Z=Z+1":
   3 "3 LET X=1":
   3 "3 INPUT K":
   3 "2 OPEN 'MX1:SPISOK.DAT'":
   3 "2 FOR K=1 TO 20 STEP 1":
   3 "2 FOR K=1 TO 10 STEP 1":
   3 "11 STOP":
   3 "11 LET S=S*A":
   3 "10 LET S=S*A":
   3 "1 REM MAX":
   3 "1 REM LENA":
   3 "1 REM FOUR":
   3 "1 REM ";:
   3 "1 ","2 ","3 ","EN"
   3 "1 ","1 ","1 ","EN"
   3 ""imq programmy""":
   3 " komanda";:
   3 "     4 NEXT K":
   3 "     3 PRINT K":
   3  GOSUB ";:
   3                      
   2 zx spectrum";:
   2 yrlf`[VQLHD@=9630-+(&$" 
   2 y=f(np,cp):
   2 x=e(np,cp):
   2 wwedite nomer prawilxnogo otweta":
   2 weig>sum+0.5
   2 prowerka hiclowyx peremennyx
   2 e(l,k)=(l-1
   2 dl_ programmnyx ctrok
   2 d$="urok 3":
   2 b$="smatri":
   2 b$="kanec":
   2 absol`tnaq weli~ina           nazna~itx mesto na diske      pokazatelx, priznak           ispor~ennyj, plohoj           zwuk                          dwoi~nyj                      blok bajtow na diske          kajma, bord`r (|krana)        kratkij                       qrkostx                       simwolxnyj                    krug                          o~istitx                      zakrytx (fajl)                kod                           kolonka (tablicy)             sceplqtx                      prodolvatx                    kopirowatx                    dannye                        data                          opredelitx, zadatx, opisatx   udalitx                       ustrojstwo, priwod            razmer                        ukazatelx, sprawo~nnik        prowesti lini`                stiratx, udalqtx              wypolnitx programmu           fajl                          mercanie                      dlq                           perednij plan                 format                        po
   2 a(cp,np)=b(bc):
   2 X(N),Y(N);
   2 W(R,D,Q)=Q*4*
   2 W(R,D,Q)":
   2 U]UQUUUUUEUEUU
   2 UUUUUUUUWUU
   2 UUUUUUUUUUUUUUUUUUUUUUU
   2 UUUUUUUUUUUUUUUUUUUUUU
   2 UUUUQUUUUU
   2 UUUEEUUUUUUUEEEUUUEEUUUU
   2 UUUAAUUUUUUUAAAUUUAAUUUU
   2 T(R,D))/3":
   2 T(A,B)=A*A*A-(A-B)*(A-B)*(A-B)":
   2 O CEKTOPA."
   2 N E P R A W I L X N O
   2 D$dDD(D$J@
   2 D$T|<0D8Jx
   2 D$=C$+" ":
   2 D$="wypoln_ema_ ctroka":
   2 D$="wwedite RETURN":
   2 D$="wwedite GO TO ":
   2 D$="wwedite GO SUB":
   2 D$="wwedite CONTINUE":
   2 D$="urok 5":
   2 D$="urok 2":
   2 D$="urok 1":
   2 D$="snahenie N wywedeno na @kran":
   2 D$="snahenie N - "+
   2 D$="operatory:":
   2 D$="najmite ENTER  ":
   2 D$="konez zikla                     ":
   2 D$="ZX BASIC":
   2 D$="THEN":
   2 D$="REX1.BAS":
   2 D$="RETURN":
   2 D$="RESTORE":
   2 D$="READ":
   2 D$="PRINT":
   2 D$="PRINT MX0:RODIN.TXT":
   2 D$="PONEDELXNIK"+
   2 D$="Operator s metkoj 7.":
   2 D$="Oni pisali programmy nezawisimo"+
   2 D$="Na printer.":
   2 D$="INPUT":
   2 D$="IF N>10 THEN PRINT N":
   2 D$="Dwe zapisi.":
   2 D$="Dwa rqda.":
   2 D$="DATA":
   2 D$="50>RETURN":
   2 D$="50 RETURN                     ":
   2 D$="40>CIRCLE 128,88,40":
   2 D$="30 DRAW -40,-40,2: STOP":
   2 D$="20 PRINT N;~ ~;~MASTER  SOFT~":
   2 D$="20 PRINT N":
   2 D$="20 DRAW 40,40":
   2 D$="18 STOP":
   2 D$="10 PLOT 128,88: STOP":
   2 D$="10 INPUT N":
   2 D$="10 INPUT N                    ":
   2 D$="10 FOR N=1 TO 5 STEP 2":
   2 D$="0 OK, 20:1":
   2 D$=" wwedite RUN  ":
   2 D$="               ":
   2 CAPS SHIFT";:
   2 ABSOLUTE       ALLOCATE       ATTRIBUTE      BAD            BEEP           BINARY         BLOCK          BORDER         BRIEF          BRIGHT         CHARACTER      CIRCLE         CLEAR          CLOSE          CODE           COLUMN         CONCATENATE    CONTINUE       COPY           DATA           DATE           DEFINE         DELETE         DEVICE         DIMENSION      DIRECTORY      DRAW           ERASE          EXECUTE        FILE           FLASH          FOR            FOREGROUND     FORMAT         FULL           FUNCTION       GET            GO             HELP           IF             IN             INK            INPUT          INEGER         INVERSE        KEY            LENGHT         LET            LIBRARY        LINK           LIST           LOAD           MAP            MERGE          MODULE         MOVE           NAME           NEW            NEXT           NO             NOT            OPEN           OPTION         ORDER          OUT            OVER           PAPER          PAUSE          PE
   2 ABSOLUTE       ALLOCATE       ATTRIBUTE      BAD            BEEP           BINARY         BLOCK          BORDER       
   2 A: RETURN":
   2 A$="uclowny' operator 
   2 A$="perexod k podprogramme ocu`ect- wl_et operator GO SUB, woswrat  k ocnowno' programme - RETURN.":
   2 A$="ecli de'ctwie powtor_etc_ prog- rammo' ne ziklihecki, a po mere neobxodimocti, ono wydel_etc_ w wide podprogrammy.":
   2 ;,,,,,,,,,,:
   2 ;"konehnoe":
   2 ;"fiziheski
   2 ;"dl_ hiclowyx peremennyx         icpol^su'te tol^ko zifry":
   2 ;"\toj stroki ne su}estwuet":
   2 ;"ZUEMYE W REDAKTORE K52.        "
   2 ;"ZADANIE SEGMENTA REDAKTIROWANIQ":
   2 ;"U> - ";:
   2 ;"Prawilxnyh  naborow-";P
   2 ;"PEREPI[ITE  SPISOK W TETRADX!!!":
   2 ;"Ostalosx-";31
   2 ;"OGRANI^ITELX"
   2 ;"Neprawilxnyh naborow-";F
   2 ;"NEMNOVKO PODOVDITE":
   2 ;"NAVMITE NA WWOD DLQ PRODOLVENIQ"
   2 ;"MOVETE NAVATX NA  KLAWI[U  WWOD"
   2 ;"MOVETE  NAVATX NA KLAWI[U  WWOD"
   2 ;"Kakoe  ~islo   nape~ataet   |ta"
   2 ;"KOMANDY DLQ RABOTY  SO  WSPOMO-"
   2 ;"ISPOLXZOWANIE  FUNKCII  <";:
   2 ;"GATELXNYMI FAJLAMI.            ":
   2 ;"FUNKCIONALXNYE KLAWI[I, ISPOLX-"
   2 ;"FUNKCIONALXNYE   KLAWI[I  <SU>."
   2 ;"DLQ PRODOLVENIQ NAVMITE NA WWOD"
   2 ;"BIORITM\";
   2 ;"A.Konew  "
   2 ;"A.Fedorow"
   2 ;"<SELECT> - ";:
   2 ;"<CHNGCASE> - ";:
   2 ;"   NAVMITE NA WWOD DLQ WYHODA  "
   2 ;"   --DOPOLNITELXNOE MEN@--     ":
   2 ;"           "
   2 ;                  
   2 8~DD<$8<r<
   2 88888888888888888<<<<<<<888888
   2 88888888888888888888888888
   2 8888888888888""
   2 5    Sektor : 11
   2 10 DATA 3,5                     20 READ A,C1,L                  30 READ C2                      40 DATA 0,-1":
   2 0000000000000000000000000000000000000000000000000000000000
   2 .                                                     
   2 .                                                    
   2 .                                             
   2 .                                            
   2 .                                  
   2 .                                
   2 .                           
   2 .                         
   2 .                        
   2 .                  
   2 .                 
   2 .              
   2 ,,,,,,,,,,:
   2 ,,,,,,,,,,,,,,,,,,:
   2 ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,:
   2 +"programmy.":
   2 +"drug ot druga.":
   2 +"MX1:PROBA.DAT":
   2 +"LIZA.DAT":
   2 +"LISA.BAS"+
   2 'ABSOLUT       'ALOUK\JT      'ATRIBX@T      B\D            BIP            'BAJNORI       BLOK           'BODO          BRIF           BRAJT          'K\RIKTO       SOKL           KLYO           KLOUZ          KOUD           'KOLOM         KON'KATIN\JT   KON'TINJU      'KOPI          'D\JTO         D\JT           DI'FAJN        DI'LIT         DI'WAJS        DI'M\N[ON      DI'R\KTORI     DRO            I'R\JZ         '\KSIK'@T      FAJL           FLA[           FO             'FOGRAUND      'FOMAT         FUL            'FANK[ON       G\T            GOU            H\LP           IF             IN             INK            'INPUT         'INTIDVO       INWOS          KI             L\NS           L\T            'LAJBRORI      LINK           LIST           LOUD           M\P            MODV           'MOD'@L        MUW            N\JM           N'@            N\KST          NOU            NOT            'OUPON         'OP[ON         'ODO           AUT            'OUWO          'P\JPO         POZ            PI
   2 "|tih ve fajlow s diskety MH1 na"
   2 "|ta programma?"
   2 "|  DIRECTORY                  |"
   2 "|                             |"
   2 "zapis","napis","wywes","ZAPIS","NAPIS","WYWEST","SBROS","CO","disk","DISK","EN"
   2 "wyborke?"
   2 "wwedite zeloe 0<N<99 ";
   2 "wiature.":
   2 "wannyj fajl na diskete MH0 ?"
   2 "w programme ";:
   2 "ukazatelq:":
   2 "sistemu  komandu  ";:
   2 "simwola i sohranenie ego w  bu-"
   2 "revim kursora 
   2 "redaktirowaniq iz fajla i  soh-"
   2 "ramme ";:
   2 "ramma  ";:
   2 "programmy i vdatx, poka ~elowek"
   2 "programma:":
   2 "printer    sodervimogo    fajla":
   2 "print","pe~at","PRINTER","PE^AT","EN"
   2 "pri wwode edinicy,  esli stroka "
   2 "pod   nomerom   #1,  a"
   2 "operator";:
   2 "od","OD","Od","ed","ED","Ed","1 ","EN"
   2 "nivnej funkcii iz dwuh, ukazan-"
   2 "ne zawer{it nabor ~isla na kla-"
   2 "navatie klawi{i ";:
   2 "natx, ~to ~elowek zakon~il  na-"
   2 "name ","NAME ","EN"
   2 "n","N","EN"
   2 "i polu~ili sledu`}u` wyborku iz"
   2 "hodnogo fajla.":
   2 "fere simwola.":
   2 "dw","Dw","DWE","2 ","EN"
   2 "disketu MH0 takim obrazom, ~to-"
   2 "bor ~isla na klawiature?":
   2 "^to nape~ataet operator 6  |toj"
   2 "^to nape~ataet operator 5  |toj"
   2 "^to nape~ataet operator 4 prog-"
   2 "^to  nape~ataet  programma  pri"
   2 "^emu rawna M w rezulxtate rabo-"
   2 "Za skolxko {agow sportsmen pro-"
   2 "Wosstanowlenie  soder-"
   2 "WWEDITE ";:
   2 "WA[A OCENKA-   ";S/30
   2 "Ukavite imena ime`}ihsq na |toj"
   2 "Skolxko rqdow stroq  pros~itala"
   2 "STEPEN ?"
   2 "SPISOK ?"
   2 "SOLDAT'K":
   2 "SE","se","7 ","EN"
   2 "RODIN.TXT"
   2 "Programmist wwodit komandu:":
   2 "Programma ";:
   2 "Programma  ";:
   2 "Po~emu programma ";:
   2 "Perewedite na  anglijskij  qzyk"
   2 "Perepi{ite komandu  kopirowaniq"
   2 "PONEDELXNIK': ";:
   2 "Operatory s kakimi metkami pow-"
   2 "OB]AQ OCENKA-";
   2 "Napi{ite poslednij  operator  k"
   2 "NOMER ?'":
   2 "MX1:PROBA.DAT":
   2 "MX0: XONIX.COM":
   2 "MX0: PROOP.COM":
   2 "MODEL: ";:
   2 "MH1. Wwedem komandu:":
   2 "Kakoj wariant Bejsika  udobnee,"
   2 "Kakoe ~islo  zapi{etsq w q~ejku"
   2 "Kakoe imq budet imetx  skopiro-"
   2 "Kakim obrazom \WM mogla by  uz-"
   2 "Kakie imena  fajlow  polu~im  w"
   2 "Kak Wy dumaete, Wa{":
   2 "Izmenenie   {rifta"
   2 "Issledujte programmu ";:
   2 "Imeetsq disketa MH1.   Wwedq  w"
   2 "IMQ=';A$":
   2 "Fedorow- pod nomerom #3 ?"
   2 "FILL,TABS,ADJUST, WRITE SELECT;"
   2 "Esli pro~itali, navmite na WWOD"
   2 "DIR MX0:  ";:
   2 "CAPS SHIFT+SYMBOL SHIFT,";:
   2 "Budet  li  rabotatx   sledu`}aq"
   2 "BORIS','MARIQ'":
   2 "<APPEND>,<CHNGCASE>,<CUT>, <RE-"
   2 "9 PRINT S":
   2 "9 ON K GOTO 10,11":
   2 "8 PRINT Z":
   2 "8 PRINT '";:
   2 "8 NEXT I":
   2 "8 INPUT K":
   2 "7 PRINT Z":
   2 "64 ","EN"
   2 "60 ","EN"
   2 "6 |toj  programmy  budet  imetx"
   2 "6 PRINT X,Y,Z":
   2 "6 PRINT X":
   2 "6 PRINT SEG$(S$(2),1,6)"
   2 "6 PRINT S":
   2 "6 PRINT D":
   2 "6 LET M=4":
   2 "6 IF X<4 THEN GOTO 4":
   2 "6 GO TO 3":
   2 "5 PRINT C$":
   2 "5 INPUT N: LET M=12-N":
   2 "5 INPUT N":
   2 "5 IF X<20 THEN GOTO 3":
   2 "5 GO SUB 10":
   2 "5 ","CO","6 ","EN"
   2 "45 ","EN"
   2 "4 PRINT X,X,X":
   2 "4 PRINT X,X":
   2 "4 LET X=1":
   2 "4 LET X(2)=15":
   2 "4 FOR K=1 TO 50 STEP 1"
   2 "3 READ A$":
   2 "3 PRINT C":
   2 "3 LET Z=Z+2":
   2 "3 LET S=0":
   2 "3 LET B=5":
   2 "3 LET B$='STATES'":
   2 "3 INPUT B":
   2 "3 DATA '";:
   2 "23658",c:
   2 "2 LET X=5":
   2 "2 LET X=1":
   2 "2 LET A$='UNITED-'":
   2 "2 LET A$='MAKS'":
   2 "2 INPUT A":
   2 "2 FOR K=1 TO 8 STEP 1":
   2 "2 A$='";:
   2 "18","STOP ","EN"
   2 "15 ","EN"
   2 "13 STOP":
   2 "13 GO TO 18":
   2 "13 ","EN"
   2 "12 STOP":
   2 "10 PRINT '";:
   2 "10 INPUT D":
   2 "1 REM Z1":
   2 "1 REM THREE":
   2 "1 REM SUMMA":
   2 "1 REM SINUS":
   2 "1 REM ROUTINE":
   2 "1 REM ROST":
   2 "1 REM RJAD":
   2 "1 REM BOBA     1 REM CBETA"
   2 "---WY PRAWY---":
   2 "- Specifikaciq    ispolxzowaniq"
   2 "- Pereme}enie kursora w  na~alo"
   2 "''"5- Operatory uprawleni_ zwetom"''"6- PAbota c grafiko'"''''"  BBEdite nomer uroka >";
   2 ""0.powtorite wwod""":
   2 " w stroke 
   2 "   Dlq otweta navmite na ";:
   2 "     5 STOP":
   2 "     4 PRINT K":
   2 "     3 LET X=K*K":
   2 "     2 FOR K=1 TO 10 STEP 1":
   2 "     17 STOP":
   2 "     11 LET M=1":
   2 "        1. Da."
   2 "                               "
   2 "         
   2  VERIFY""""":
   2  SAVE""""":
   2  READ""""":
   2  PAPER 2":
   2  MERGE""""":
   2  LagSoft  Disk version ":
   2  LOAD""""":
   2  INPUT ";:
   2   NOWOSIBIRSK 14.2.1994  ":
   2      _______       _______        ___ ___       ___ ___      
   2                                 ":
   2                                               
   2                  
   1 ||||||||||||||||":
   1 {ag prira}eniq
   1 zzzzzzzzzzzzzzzzzzz
   1 zx spectrum ";:
   1 zanimalsmB
   1 zAZBUKA 1B
   1 z1>z;"cnaq "
   1 z(j)=z(j)-360
   1 z(a)=z(a)-360
   1 z(a)=z(a)+360
   1 z(a)=a(a):
   1 z$="tel. 143-33-03 (spb)":
   1 z$="abwgde@vzijklmnoprstufhc~{}^yx|`q"
   1 z$(a)=g$(a+12
   1 y$="a *bw|g|*d*e*@v|z|i *jka|l|m|no p||r|st|u |fhac|~e{a*{*^y *x| ` q "
   1 x=((6.6460656
   1 x1=a(cp,np):
   1 x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6
   1 wy~islqet wyravenie posle   znaka 
   1 wy-ravenie
   1 wwedi nomer prawilxnogo otweta"
   1 wozwedenie w stepenx          
   1 wozniknutx sledu`}aq situaciq:  w raznyh mestah programmy stoqt gruppy odinakowyh operatorow.   dlq sokra}eniq ob
   1 wosproizwoditx zwuki pri pomo}i operatora:     
   1 wo wtoroj programme wytesnq`tsq
   1 wetstwu`}u` klawi{u. "       
   1 w seredine |krana.       
   1 w q~ejki A$.
   1 umnovenie i delenie           
   1 ul=ul-411.6
   1 ul=ul+2369.9
   1 ul=22639.6
   1 uj=julian day,
   1 uANIMAL  B
   1 to~koj; 56.78"
   1 to be available,
   1 task=task+1
   1 t=((uj-2415020
   1 sum=sum-m:
   1 sum=sum+D(point):
   1 slovenie i wy~itanie          
   1 skolxko tebe let?"";m":
   1 skolxko raz budet wypolnen operator ";:
   1 sinus h ":
   1 s=(s+s1*t+s2*t*t)
   1 s(1,1),s(1,2),...,s(1,6)        s(2,1),s(2,2),...,s(2,6)        s(3,1),s(3,2),...,s(3,6)"
   1 re{eniq.cikly. ":
   1 ras{irenie";:
   1 rabota s wne{nej pamqtx`""":
   1 r=(x*x+y*y)^.5
   1 r$=r$+z$(b,
   1 qwim dwumernyj massiw S s   razmernostx` 3,6:":
   1 q otweta navmite na ";:
   1 prowerim kak wy wse |to uswoili ":
   1 prower_et, ne raw-na li peremenna_ zikla predel^- nomu snaheniq.":
   1 primer ispolxzowaniq klawiatury:":
   1 pridetsq ego powtoritx e}e raz":
   1 powtorite wwod""":
   1 polovitelxnyj;  
   1 point=C(curs-4
   1 podprogrammy.funkcii."" ":
   1 peremennaq
   1 o~enx valx,no |tot urok wy     ne uswoili":
   1 otricatelxnyj."
   1 otnositelxno drug druga deleniei umnovenie ime`t rawnye priori-tety(urowni star{instwa),to ve  samoe movno skazatx i o slovenii i wy~itanii." 
   1 osnowy BEJSIKA"" ":
   1 oslu{ajte kak zwu~it |ta                programma.          "
   1 operatory BEJSIKA"" ":
   1 operacii otno{eniq srawniwa`t   dwa operanda.esli uslowie wypol-neno,to rezulxtat rawen 1,w pro-tiwnom slu~ae 0.naprimer,zna~e- nie wyraveniq 2=3 rawno 0,a zna-~enie wyraveniq 3
   1 ohictka @krana
   1 obytes   C
   1 o,b+h;m$(i);
   1 o+a,e;w$(a);
   1 o (Y/N) ?":
   1 noj,t.e. esli h=0,to";:
   1 neprawilxno";:
   1 neizwestno":
   1 ne rawno":
   1 navatie klawi{i odnowremenno s  klawi{ej ";:
   1 name,var1,i,k1 "
   1 n$'''"Segodny ";t;".";m;".";j
   1 move68,72/circle8,25
   1 move68,56/circle32,8
   1 menx{e ili rawno":
   1 mbropic  C
   1 maly' vrift
   1 m=c));j;"    ":
   1 m=D(point):
   1 m(m)-h)+("
   1 m(m));j;" r.";
   1 m(i),n(i):
   1 m$(a),m(a),l(a):
   1 lu=1012395
   1 lu=((ol+ul)/m)-(
   1 lu1=1203586
   1 logi~eskie operacii.""":
   1 libo ovidanie komand.
   1 lgeb.21B%)
   1 lgeb.20B|)/'*
   1 lgeb.19Bh+
   1 lgeb.18BO0
   1 lgeb.13Bd>
   1 l=(ol-lu1)/m
   1 l1=((ol-d)-lu)/m
   1 konez merzani_
   1 komandy BEJSIKA"" ":
   1 klawiatura"" ":
   1 kakoj operator   wyzywaet bezuslownyj perehod k  stroke s nomerom 10 ?":
   1 kakoj operator   sluvit dlq wwoda ~isel s        klawiatury ?":
   1 kakoj operator   movet priswaiwatx zna~eniq      peremennym iz bloka dannyh ?":
   1 kakoj operator    sohranqet programmu iz pamqti   kompx`tera na lentu?":
   1 kakoj operator    okra{iwaet |kran w sinij cwet?":
   1 kakoj operator    okra{iwaet bord`r w krasnyj      cwet?":
   1 kakoj operator    obespe~iwaet zagruzku nowoj     programmy s lenty w pamqtx      kompx`tera ?":
   1 kakoj operator    obespe~iwaet wozwrat iz         podprogrammy ?":
   1 kakoe imq movno   ispolxzowatx w ka~estwe imeni   uprawlq`}ej peremennoj cikla ?":
   1 kakaq komanda  o~i}aet ws` pamqtx kompx`tera ?":
   1 kakaq komanda   raspe~atywaet na |krane tekst   programmy ?":
   1 kak,w revime     mikrokalxkulqtora pods~itatx  proizwedenie dwuh ~isel: 0,5 i    1000000000 ?":
   1 kak wwesti komandu ";:
   1 kak w programme   peremennoj A priswoitx zna~enie rawnoe 
   1 k+h,h;"y Bac,ko
   1 k+e,h;"cmapa
   1 k","cpeqa","
   1 j$(n),m$(n),m(n),l(n):
   1 imeetsq uslowie:  esli a=0 ili w=0,to perejti k   stroke s nomerom 20. kakoj      operator wypolnqet |to uslowie?":
   1 imeet wid:   ";:
   1 i$(a)=i$(a,2
   1 i wypolnqetsq   posledowatelxnostx operatorow,  sostawlq`}ih telo cikla."
   1 i ocu`ectwl_et pere-xod k nahalu zikla":
   1 hBROPIC  BF 
   1 h$(j)=" ":
   1 h$(i)=" ":
   1 fball    C
   1 f=(ol-n)/m:
   1 esli hotq by odin operand nule-woj - rezulxtat operacii rawen 0":
   1 esli argument=
   1 esli argument 
   1 ema programmy i dlq udobstwa wozmovnyh ispraw-lenij w |toj gruppe operatorow  ih ob
   1 ema om qpyr
   1 em vizni.                                                   Wy wysoko cenite nezawisimostx, osobenno finansowu` iz-za skry- toj boqzni poterqtx ee. Esli u  was nemnogo druzej, oni wernye.                                 W was estx nekotoryj pessimizm ipassiwnostx, strah izolqcii.  U was boleznennoe woobravenie i   nezdorowye fantazii. Horo{o raz-witaq intuiciq                  Wa{e blagopriqtnoe polovenie    sdelaet was populqrnym.Weroqtno wy obladaete osobymi dostoinst- wami.Razwiwajte w sebe ~uwstwo  prekrasnogo.                    Opasnostx bolx{ih rashodow ili  poterx, wozmovna rasto~itelx-   nostx. Zdorowxe ne dastsq legko.Wa{e glawnoe dostoinstwo - wa{a re{itelxnostx.                  Esli wa{a professiq swqzana s   umstwennym trudom,to wse OK,ina-~e wam dolvno kazatxsq,~to wy   naprasno terqete wremq.Sfera ~e-lowe~eskih otno{enij - ideal.   Wy uwidite mnogo peremen: horo- {aq semejnaq viznx i nasledstwo.Wy, wozmovno, izwle~ete polxzu  iz kollekcionirowaniq ili drew- nih iskusstw.                   Vi
   1 em vizni.                                                   Potaennyj strah denevnyh zatrud-nenij zastawlqet was wysoko ce- nitx nezawisimostx. \to movet   sdelatx was odinokim.                                           Gluboko wnutri wy zasten~iwy i  o~enx uqzwimy. Wysoko razwita   intuiciq. Weroqtno u was estx   sklonnostx k alkogol` i narkoti-kam, bolx{aq,~em u drugih.     E
   1 em roqa-";:
   1 em  dejstwie grafi~eskih operatorow.":
   1 ek ? (Y/N)":
   1 edinq`t w 
   1 edinennaq w pod- programmu,oby~no pome}aetsq w   konec programmy i okan~iwaetsq  operatorom wozwrata iz podprog- rammy  ";:
   1 e,c-e;"Hop
   1 e (Y/N)?":
   1 drug drugom.
   1 do :0   do#:1   re :2   re#:3   mi :4   fa :5   fa#:6   solx:7  solx#:8  lq:9   lq#:10  si :11  do :12"
   1 dlq zaglawnyh   bukw";
   1 dlq whoda w urok navmite ":
   1 dlq prodolveniq navmite l`bu`  klavi{u "
   1 dlq prodolveniq 
   1 d$="wwedite im_ cleduq`ego uroka?":
   1 d$="urok 6":
   1 d$="urok 4":
   1 d$="pocw_tim emu otdel^ny' urok":
   1 d$="operatory:":
   1 d$="okonhen":
   1 d$="najmite ENTER":
   1 d$="dl_ fakul^tatiwnyx san_ti'":
   1 d$="clojnyx rasdelow _syka i my":
   1 d$="DATA":
   1 d$=" wwedite READ ":
   1 d$="  wwedite RUN  ":
   1 curs=curs-1
   1 curs=curs+1
   1 cur2=cur2-1
   1 cur2=cur2+1
   1 cur1=cur1-1
   1 cur1=cur1+1
   1 credni' vrift
   1 copy mx1:*.dat mx0: ","COPY MX1:*.DAT MX0: ","EN"
   1 c,o^h;"               ":
   1 c(i,j),d(i,j),e(i,j),f(i,j)
   1 boot    BV
   1 bolx{e ili rawno":
   1 bol^vo' vrift
   1 blok dannyh.massiwy."" ":
   1 bBALL    B
   1 b*h,q;"1234567890123456789012345678901"(
   1 b(i)=a(cp,np):
   1 b(bc)=b(i):
   1 b(bc)=a(cp,np):
   1 b$=y$(ll*2
   1 b$="zwanok":
   1 b$="zdorawa":
   1 b$="zavym":
   1 b$="werna":
   1 b$="wastok":
   1 b$="warona":
   1 b$="wal{|bnaq":
   1 b$="uvasna":
   1 b$="uta~ka":
   1 b$="umnica":
   1 b$="tormas":
   1 b$="sonc|":
   1 b$="slowa":
   1 b$="serc|":
   1 b$="sawa":
   1 b$="raboty":
   1 b$="prikrasna":
   1 b$="praf":
   1 b$="ploha":
   1 b$="pakavyka":
   1 b$="niwerna":
   1 b$="nitak":
   1 b$="neznae{":
   1 b$="nehara{o":
   1 b$="nasok":
   1 b$="napi{i":
   1 b$="mator":
   1 b$="masla":
   1 b$="malatec":
   1 b$="lo{ka":
   1 b$="lotka":
   1 b$="lafka":
   1 b$="karowa":
   1 b$="kaf|":
   1 b$="hara{o":
   1 b$="hahaha":
   1 b$="gara{":
   1 b$="cyrk":
   1 b$="cyfra":
   1 b$="a{ipka":
   1 b$="azbuka":
   1 b$="awe~ka":
   1 b$="anv|la":
   1 b$="akno":
   1 b$="ac|nka":
   1 az2.scr C(
   1 az2.obj CH
   1 az1.cod1C@
   1 awtomati~eski ustanowitsq na    stroku s ukazannym nomerom i    sama wypolnqetsq.":
   1 a(cp,np)=-a(cp,np)
   1 a$="~etyre":
   1 a$="~a{ka":
   1 a$="~asy":
   1 a$="}epka":
   1 a$="|kran":
   1 a$="{wabra":
   1 a$="{utka":
   1 a$="{ura":
   1 a$="{kola":
   1 a$="{kaf":
   1 a$="{ala{":
   1 a$="zwonok":
   1 a$="zont":
   1 a$="zima":
   1 a$="zebra":
   1 a$="zavim":
   1 a$="zaqc":
   1 a$="zanoza":
   1 a$="zakat":
   1 a$="wowa":
   1 a$="wostok":
   1 a$="worona":
   1 a$="wolga":
   1 a$="wilka":
   1 a$="wera":
   1 a$="vurnal":
   1 a$="vara":
   1 a$="udo~ka":
   1 a$="tu~a":
   1 a$="tormoz":
   1 a$="teper^ poprobu'te sapuctit^ pro-grammu. dl_ @togo nujno wwecti  direktiwy ~RUN~ ili ~GO TO 10~.":
   1 a$="tak wygl_dit ctroka programmy na_syke BASIC, werci_ ZX":
   1 a$="swinka":
   1 a$="stul":
   1 a$="strana":
   1 a$="stol":
   1 a$="sowa":
   1 a$="soska":
   1 a$="solnce":
   1 a$="snahenie peremenno' mojno sada- wat^ i pri wypolnenii programmy.dl_ @togo icpol^suetc_ operator INPUT":
   1 a$="slawa":
   1 a$="sirop":
   1 a$="sila":
   1 a$="serdce":
   1 a$="sa{a":
   1 a$="sahar":
   1 a$="ru~ka":
   1 a$="roza":
   1 a$="rana":
   1 a$="raketa":
   1 a$="rabota":
   1 a$="q}ik":
   1 a$="ptica":
   1 a$="programma wypolnena. dl_ powto- reni_ uroka najmite RUN, dl_    okonhani_ - lqbo' drugo' opera- tor":
   1 a$="pri napicanii cimwol^na_ pere-  menna_ otlihaetc_ ot hiclowo'   snahkom ~$~.
   1 a$="pqtx":
   1 a$="polka":
   1 a$="pila":
   1 a$="pe~ka":
   1 a$="perwy' i wtoro' argumenty opre- del_qt dwijenie prowodimo' liniiis teku`e' posizii po oc_m ~x~ i~Y~ cootwetctwenno.             ecli argumentow dwa, to prowodi-tc_ pr_ma_ lini_, ecli tri, to  duga, ugol kotoro' opredel_etc_ tretim argumentom (w radianax).":
   1 a$="pastuh":
   1 a$="park":
   1 a$="papa":
   1 a$="panama":
   1 a$="owe~ka":
   1 a$="ovibohna_ ctroka uctrn_etc_ di- rektiwo' ~EDIT~.                dl_ ee wysowa cleduet odnowre-  menno najat^ klawivi CAPS SHIFT i 1":
   1 a$="operator ~BORDER~ opredel_et    zwet kra_ @krana                        ":
   1 a$="operator opredel_et de'ctwie ilicowokupnoct^ de'ctwi', podleja- `ix icpolneniq komp^qterom
   1 a$="operator READ hitaet snahenie   peremenno' is cpicka DATA.":
   1 a$="operator PRINT wywodit na @kran resul^taty raboty programmy. pri@tom w kahectwe argumenta mogut icpol^sowat^c_ peremennye,":
   1 a$="operator LET - odin is naibolee racpoctranennyx. on pricwaiwaet perenenno' kakoe-libo hiclowoe  ili cimwol^noe snahenie.":
   1 a$="opera":
   1 a$="okno":
   1 a$="odin":
   1 a$="no~x":
   1 a$="nosok":
   1 a$="norka":
   1 a$="nata{a":
   1 a$="nasos":
   1 a$="motor":
   1 a$="most":
   1 a$="mi{a":
   1 a$="miska":
   1 a$="mesto":
   1 a$="ma{a":
   1 a$="maslo":
   1 a$="marka":
   1 a$="mama":
   1 a$="lovka":
   1 a$="lodka":
   1 a$="lawka":
   1 a$="larisa":
   1 a$="lap{a":
   1 a$="lampa":
   1 a$="ku~a":
   1 a$="kurica":
   1 a$="krysa":
   1 a$="korowa":
   1 a$="komp^qter ukasywaet na otcutCT- wie operatora pocle nomera ctro-ki. ctroka c ovibko' mojet byt^ uctranena ili otkorrektirowana":
   1 a$="kazak":
   1 a$="kafe":
   1 a$="izba":
   1 a$="iwan":
   1 a$="iskra":
   1 a$="inna":
   1 a$="igra":
   1 a$="igla":
   1 a$="i hicla.":
   1 a$="hwost":
   1 a$="hrap":
   1 a$="hicla w ctroke  10  opredel_qt  nahal^noe i konehnoe snahenie   peremenno' zikla":
   1 a$="gorka":
   1 a$="garav":
   1 a$="firma":
   1 a$="fara":
   1 a$="cirk":
   1 a$="cimwoly, saklqhennye w kawyhki":
   1 a$="cimwoly udal_qtc_ is ctroki di- rektiwo' DELETE. dl_ ee wysowa  cleduet najat^ odnowremenno CAPSSHIFT i 0. poprobu'te ismenit^  nomer ctroki na 25-'":
   1 a$="cifra":
   1 a$="azbuka":
   1 a$="arka":
   1 a$="anvela":
   1 a$="ananas":
   1 a$="akula":
   1 a$="afi{a":
   1 a$="`bka":
   1 a$="     ctroka, na kotoruq ukasywa-et  programmny' kurcor ~>~, sa- n_la mecto naxodiwve'c_ tam ovi-bohno nabrano'. ecli wyswanna_  ctroka w redaktirowanii ne nuj- daetc_, mojno ohictit^ nijnqq   hact^ @krana klawive' ENTER":
   1 a ";m$(m)(
   1 `arbuz   C
   1 _______ __
   1 _ARBUZ   B
   1 [ENTER]-No/Yes
   1 Za 60 {agow.
   1 ZAGRUZKA WTOROJ ~ASTI "
   1 Z$="~to |to za bukwa ?":
   1 Z$="|to bukwa "+
   1 Z$="wyberi nuvnu` bukwu":
   1 Z$="w labirintE slow":
   1 Z$="sostAwx slowo":
   1 Z$="slowo: 
   1 Z$="prawilxno , "+b$+" !!!":
   1 Z$="bukwy alfawita":
   1 Z$="awtor a.s.mednonogow":
   1 Z$="]        ]":
   1 Z$="COPuRIGHT 1992":
   1 Z$="   pPawilxno , "+W$(R)(
   1 Ynvar|    Fevral|   Mart      Aprel|    Ma
   1 Y$="aboe%iqvu~|hwgdtzck{nlmpsr`}yf12345":
   1 Wypolnenie  komand  (programm),
   1 Wy sklonny boqtxsq budu}ego,   sostorovnostx` otnositesx k wliq-ni` drugih. Menx{e podozritelx- nosti i bolx{e nadevdy!                                         Wa{ optimizm horo{, no ne zakry-wajte glaza na nepriqtnosti. W  was estx ~to-to ot snegowika.   ^uwstwo izq}estwa.                                              Wy mnogo wolnuetesx, i wolneniq priqtny wam. Wa{i standarty wy- soki. Budxte aktiwnee. Horo{aq  rabota pomovet wa{ej t}eslawnoj nature.                         Wy i}ete pokoq i ti{iny. Wy ho- tite o~arowatx kavdogo i po|tomurazwiwajte swoe obaqnie. Wam ne-legko wybiratx. S towari}ami wy nahoditesx w garmonii.          Wy slovny, mnitelxny, werite w  predrassudki, re{itelxny, no ne wpolne dower~iwy i ne bywaete   dowolxny soboj. Wy iskrenne sta-raetesx ulu~{itxsq.             Wy l`bite riskowatx: fizi~eski, umstwenno, seksualxno. Wy bystrowozbuvdaetesx, ne nahodite sebe mesta i sli{kom legko sdaetesx. U was legkij harakter!          Wy konserwator i ne l`bite pere-men. Wy serxezny, velaete uspe
   1 W??????? ?
   1 W o p r o s
   1 VbasiclesC
   1 VUUUj[BMKP
   1 VAL ""3.5""=3.5":
   1 V$(N)=W$(M)
   1 UROK 5 ""re{eniq.cikly.                  logi~eskie operacii"""
   1 UROK 4 ""operatory BEJSIKA"""
   1 UROK 3 ""komandy BEJSIKA"""
   1 UROK 2 ""osnowy BEJSIKA"""
   1 UROK 1 ""klawiatura"" "
   1 TRN.DAT DX
   1 TO,STEP";:
   1 TO OCHOBHA
   1 TO             TYPE           VALUE          VERIFY         VOLUME         YES            YOU                                                                                                      
   1 TECHNOLOGY RESEARCH LTD.
   1 TAPE TO DISK COPIER VER 5.0
   1 TAPE LOAD ERROR
   1 T=1","IF Z=100
   1 T=1                  INPUT T                      m
   1 T=1                  0F Z=100
   1 Swobodno>>
   1 Stertyh>>>>>>>>
   1 SYMBOL SHIFT  ";:
   1 START TAPE
   1 START LINE:
   1 SREDSTWO OB]ENIQ MEVDU L@DXMI.
   1 SQR 4=2.":
   1 SPACE  TO NEW DISK
   1 S$="20 PRINT ~urok 1~":
   1 Razme~ennaq tetradx.
   1 RUS.DAT DX
   1 REWIND TAPE
   1 REM Lena":
   1 RAMRET=9890
   1 Q$+"YYYYYYYYYYY"+R$+"]"+Q$+"YYYYYYYYYYY"+R$+"]"+Q$+"YYYYYYY"+R$+"]",Q$+"Y"+R$+"[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[_"
   1 Q$+"YYYYY"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"YYYYY"+R$+"]"+Q$+"Y"+R$+"[[[_"+Q$+"Y"+R$+"]"+Q$+"YYYY"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"]",Q$+"Y"+R$+"]"+Q$+"Y"+R$+"Z[_"+Q$+"YYY"+R$+"Z[\"+Q$+"Y"+R$+"]"+Q$+"YYYYYY"+R$+"]"+Q$+"YY"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"YYY"+R$+"]"+Q$+"Y"+R$+"]"
   1 Q$+"Y"+R$+"^[_"+Q$+"YYY"+R$+"[[_"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"^[[[[[[_"+Q$+"YY"+R$+"]"+Q$+"Y"+R$+"^[[[_"+Q$+"Y"+R$+"]"
   1 Q$+"Y"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"YYY"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"YYY"+R$+"^_"+Q$+"Y"+R$+"]"+Q$+"YYYY"+R$+"]"+Q$+"YYY"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"]",Q$+"Y"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"^[_"+Q$+"Y"+R$+"]"+Q$+"YYYY"+R$+"]"+Q$+"Y"+R$+"Z[[_"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"]"
   1 Q$+"Y"+R$+"[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[\",Q$+"YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY"+R$+"]",Q$+"Y"+R$+"Z[\"+Q$+"Y"+R$+"Z[[[\"+Q$+"Y"+R$+"Z[[[[[[[[[[[[[[[[[\"+Q$+"Y"+R$+"]"
   1 Pods~itywaet koli~estwo bukw  w
   1 Perehod  k  operatoru s nomerom
   1 PRINT LEN ""ROOM""  ";:
   1 PRINT 26+48";:
   1 PRINT 10":
   1 PRINT 0.5+1E9":
   1 PRINT 0.5*1E9":
   1 PRINT 0,5/1E8":
   1 PRINT 0,5*1E9":
   1 PRINT '";:
   1 PREWOSHODNO    OTLI^NO        HORO[O         SREDNENXKO     SLABOWATO      NE GODITSQ     NE WERNO       
   1 PREWOSHODNO    OTLI^NO        HORO[O         SREDNENXKO     SLABOWATO      NE GODITSQ     NE PRAWILXNO   d
   1 PRESS [BREAK] TO STOP
   1 Operator priswaiwaniq,  funkciq
   1 One Del file
   1 OSNRAM=9910
   1 Nuvno projti w kabinet 2.
   1 NOT ENOUGH MEMORY
   1 NO EXE FILES !
   1 NBASICLESB
   1 N+" MASTER  SOFT":
   1 MOVATTR=9700
   1 MEHTOM HA3
   1 MAT=MAT-32
   1 MAT=MAT+32
   1 MARK=MARK-1
   1 LQ-.0130125
   1 LOADER OF RUS FONT & INFO
   1 LET A$=STR$100";:
   1 LET A$=""100""":
   1 LEN)+" !!!   ":
   1 L(V): GO TO 18":
   1 KAK ~hiclowo' peremenno' ~N~    pricwoit^ snahenie 10~":
   1 K(V): GO TO 18":
   1 JemminiCOMMANDER V4.0
   1 Insert command
   1 Input FILTER name
   1 INT 3.9=3  ";:
   1 INT -3.9=-4":
   1 INICIALIZATION
   1 INIATTR=9870
   1 IF A=0 OR B=0 THEN GO TO 20":
   1 IF A=0 OR B=0  GO TO 20":
   1 IF A=0 AND B=0 THEN GO TO 20":
   1 IF A=0 AND B=0  GO TO 20":
   1 I8.FAV  Bn+
   1 I7.FAV  Bt(
   1 I14.FAV B\%
   1 I13.FAV B8-
   1 I1.FAV  B`
   1 H$=B$(XAT-16
   1 GRAPHICS (CAPS SHIFT";:
   1 GO TO 20,IF A=0 OR B=0":
   1 GO TO 10":
   1 Fajlow>>>>>>>>>
   1 F$="10 PRINT ~ZX BASIC~":
   1 Error catalog!
   1 ENG.DAT DX
   1 EDLdEDHUUUUW34
   1 E$(S);"[ ";:
   1 Don't read another's program!
   1 Df&;WffKF,2b
   1 DRAW X,Y,A ":
   1 DIU0GAX5I9L64BTKYBM3425990J3KL2C7TKWD62B1V6J9UAR9G
   1 DEMONSTATION
   1 DATA TYPE:
   1 DATA ARRAY
   1 D(point)=curs-4
   1 D(point)=0
   1 D(cur1)<0.5
   1 D$="zikly":
   1 D$="wwedite snahenie ~a~":
   1 D$="wwedite snahenie A$":
   1 D$="wwedite macciw (ot 0 do 99)":
   1 D$="wwedite RESTORE":
   1 D$="wwedite INPUT":
   1 D$="urok 6":
   1 D$="urok 4":
   1 D$="urok 3":
   1 D$="programmy na _syke BASIC":
   1 D$="podprogrammy":
   1 D$="perexody":
   1 D$="operatory zweta":
   1 D$="operator 10.":
   1 D$="najmite zifru 5":
   1 D$="najmite ENteR":
   1 D$="najmite EDIT":
   1 D$="najmite DELETE":
   1 D$="najmite CAPS+8":
   1 D$="najmite CAPS+7":
   1 D$="najmite CAPS+6":
   1 D$="najmite CAPS+5":
   1 D$="najmite CAPS+1":
   1 D$="nabor, redaktirowanie i sapuck":
   1 D$="naberite 25     ":
   1 D$="macciwy - odin is naibolee":
   1 D$="macciw: ":
   1 D$="konez uroka-2":
   1 D$="komp^qterna_":
   1 D$="grafika":
   1 D$="cpicok data:":
   1 D$="clojenie":
   1 D$="clojenie 40+50=90":
   1 D$="clojenie 10+20=30":
   1 D$="^toby powtoritx nekotorye  ope-"+
   1 D$="^toby izmenitx posledowatelxnoe"+
   1 D$="^toby  otli~itx  ee  ot  drugih"+
   1 D$="^islo 8.":
   1 D$="^islo 5:  5-->0 stalo 5.":
   1 D$="^islo 10.":
   1 D$="^etnye |lementy w programme  ne"+
   1 D$="\to ne racionalxno.":
   1 D$="\to  zawisit  ot srednego balla"+
   1 D$="\lement H(6) w programme ne wy-"+
   1 D$="\WM 'ne znaet',  kak  wy~islqtx"+
   1 D$="Zna~enie w q~ejke  H uweli~iwa-"+
   1 D$="Zdesx data sozdaniq:  15 qnwarq"+
   1 D$="Zapi{etsq 1.":
   1 D$="Zapi{etsq 0.":
   1 D$="Zapisx i wosprojzwedenie.":
   1 D$="Zapisatx |tu informaci` na disk":
   1 D$="Zapisatx na disk.":
   1 D$="Za 60 {agow.":
   1 D$="Za 30 i 20 {agow sootwetstwenno":
   1 D$="Za 15 {agow.":
   1 D$="XT N":
   1 D$="Wy~islqet celu` ~astx ~isla.":
   1 D$="Wy~islqet  i  priswaiwaet   'K'"+
   1 D$="Wypolnenie  komand  (programm),"+
   1 D$="Wyhodit iz budki.":
   1 D$="Wybratx iz A$ bukwy s 4 po 6.":
   1 D$="Wse.":
   1 D$="Wremq sutok.":
   1 D$="Wremq dlq sistemnyh ~asow  wwo-"+
   1 D$="Wozmovnastqmi.":
   1 D$="Wariant Bejsika \WM SEWER.":
   1 D$="Wariant Bejsika DWK.":
   1 D$="W rezulxtate realxnogo razli~iq"+
   1 D$="W prawoj-staroe, w lewoj-nowoe.":
   1 D$="W perwom operatore fajl  otkry-"+
   1 D$="W li~nom garave odin  boks  dlq"+
   1 D$="W l`boj moment.":
   1 D$="W kataloge.":
   1 D$="W bloke pamqti.":
   1 D$="W  kataloge  diska (oglawlenii,"+
   1 D$="Uznaet u sistemy.":
   1 D$="UNITED-STATES":
   1 D$="Tri raza.":
   1 D$="Tolxko dlq u~ebnyh celej.":
   1 D$="Teletajp.":
   1 D$="TYPE":
   1 D$="TYPE MX0:RODIN.TXT":
   1 D$="TRON":
   1 D$="TO RENAME":
   1 D$="TO NAME":
   1 D$="TELETYPE":
   1 D$="S~ital  w  q~ejku  A$ sledu`}ij"+
   1 D$="Sostoqnie ovidaniq.":
   1 D$="Soob}it adresa defektnyh blokow":
   1 D$="Soob]aet  o  nazwanii   (imeni)"+
   1 D$="Sledu`]ij po o~eredi.":
   1 D$="Sdelatx trafaret |togo  izobra-"+
   1 D$="Sdelatx dlq |togo swo` funkci`.":
   1 D$="SYSTEM":
   1 D$="START=100":
   1 D$="SREDSTWO OB]ENIQ MEVDU L@DXMI.":
   1 D$="SIMWOLY ODINAKOWY":
   1 D$="SIMWOLY NE ODINAKOWY":
   1 D$="S samogo na~ala.":
   1 D$="S kotoroj proishodila zagruzka.":
   1 D$="S 27-j po 40.":
   1 D$="Raznosti ob'emow |tih sfer.":
   1 D$="Razme~ennaq tetradx.":
   1 D$="Razmetka diskety.":
   1 D$="RUN, satem ENTER":
   1 D$="RODIN.TXT   ELSA.TXT":
   1 D$="ROBIN.DAT":
   1 D$="ROBERT.COM   SCOONS.COM":
   1 D$="REX.BAS":
   1 D$="REN MX0:REX1.BAS MX0:REX2.BAS":
   1 D$="Programmy operacionnoj sistemy.":
   1 D$="Programma  nikogda  ne zakon~it"+
   1 D$="Priswaiwaet H zna~enie H+1,  to"+
   1 D$="Prikazywaet \WM na~atx wypolne-"+
   1 D$="Pri K=1.":
   1 D$="Predstawlqet ~islo tipom 'stro-"+
   1 D$="Prakti~eski net.":
   1 D$="Powtorqtx operatory, na~inaq  s"+
   1 D$="Potomu, ~to w pamqti \WM dlq  H"+
   1 D$="Potomu ~to w operatore s metkoj"+
   1 D$="Potomu ~to net funkcii wozwede-"+
   1 D$="Potomu ~to dlq massiwa (nabora)"+
   1 D$="Pods~itywaet koli~estwo bukw  w"+
   1 D$="Po nazwani` fakulxtetow.":
   1 D$="Po imeni.":
   1 D$="Perehod k operatoru s metkoj 2.":
   1 D$="Perehod  k  operatoru s nomerom"+
   1 D$="PROBA":
   1 D$="PRINTER":
   1 D$="PRINT ~MASTER COMPUTER~":
   1 D$="PRINT MX0:RITA.BAS":
   1 D$="PRIKAZ WYPOLNITX KONKRETNOE"+
   1 D$="PORQDOK,   POSLEDOWATELXNOSTX "+
   1 D$="PONEDELXNIK":
   1 D$="POJAS2":
   1 D$="PLOT,DRAW,CIRCLE":
   1 D$="PLOT":
   1 D$="PETROWA":
   1 D$="PAROWOZ":
   1 D$="Ot ~eloweka, kotoryj naberet na"+
   1 D$="Ot operatorow s metkami 2, 3, 5":
   1 D$="Opisanie funkcii, kak ee wypol-"+
   1 D$="Operatory s nomerami 5 i 6.":
   1 D$="Operatory s 3 po 7-j.":
   1 D$="Operatory 5 i 6.":
   1 D$="Operatory 3, 4, 5.":
   1 D$="Operator s metkoj 5.":
   1 D$="Operator priswaiwaniq,  funkciq"+
   1 D$="Operator 6 otpe~ataet ~islo  iz"+
   1 D$="Ono sterto, uni~toveno, zame{a-"+
   1 D$="Ono budet sterto, uni~toveno:"+
   1 D$="Odnu q~ejku.":
   1 D$="Ob}ee  koli~estwo  detej  u sot-"+
   1 D$="Oby~no odnu q~ejku.":
   1 D$="Oby~no ne sowpadaet.":
   1 D$="Ob'em tela na udelxnyj wes  ma-"+
   1 D$="Ob |tom nuvno uznatx na str. 13"+
   1 D$="Nuvno projti w kabinet 2.":
   1 D$="Nomer 2- na~alu bega."+
   1 D$="Ni~em.":
   1 D$="Nikogda.":
   1 D$="Net, po porqdku, uporqdo~enno.":
   1 D$="Net, nelxzq.":
   1 D$="Neograni~ennoe koli~estwo ~isel":
   1 D$="Neobhodimo  prosmotretx  ukaza-"+
   1 D$="Neobhodim  priem,  ~toby umenx-"+
   1 D$="Ne menee 4-h operatorow.":
   1 D$="Ne izwestno.":
   1 D$="Nabratx na klawiature i  navatx"+
   1 D$="Na takoj disk  informaciq  dave"+
   1 D$="Na swoem,  s kotorogo on zagru-"+
   1 D$="Na operatore 16.":
   1 D$="Na displej.":
   1 D$="Na diskete.":
   1 D$="Na diskete fajlow ne budet."
   1 D$="NEXT":
   1 D$="NAME":
   1 D$="N+2: perexod k stroke 10":
   1 D$="N+2: perexod k ctroke 10":
   1 D$="Mevdu   operatorami  s  metkami"+
   1 D$="Ma[ina movet ego nape~atatx.":
   1 D$="MX1:PROST.DAT"+
   1 D$="MX1:PROBA.BAS"+
   1 D$="MX1:":
   1 D$="MASTER":
   1 D$="MASTER COMPUTER":
   1 D$="MART.DAT":
   1 D$="L`boj simwol.":
   1 D$="LISA.DAT   LISA.BAS":
   1 D$="LETO.DAT":
   1 D$="LETO":
   1 D$="LET M=12-N":
   1 D$="LET HE WRITE":
   1 D$="Kopirowanie programmy WOOT.":
   1 D$="Kopirowanie operacionnoj siste-"+
   1 D$="Kone~no, net.":
   1 D$="Kolxcewoj, krugowoj.":
   1 D$="KROT01.COM     KROT02.COM":
   1 D$="KROSSWORD":
   1 D$="KOMANDY, PRIKAZY.":
   1 D$="K staromu sodervimomu q~ejki H"+
   1 D$="K  H  w prawoj ~asti rawenstwa,"+
   1 D$="Iz matemati~eskogo  predstawle-"+
   1 D$="Iniciirowatx fajl oglawleniq.":
   1 D$="Inicializaciq oglawleniq.":
   1 D$="Imq fajla.":
   1 D$="IZ POSLEDOWATELXNOSTI KOMAND.":
   1 D$="INVERSE 0":
   1 D$="INPUT K":
   1 D$="INK,PAPER,OVER":
   1 D$="IMQ=BORIS":
   1 D$="GO TO SUBROUTINE":
   1 D$="GLAGOL":
   1 D$="FLASH,INVERSE":
   1 D$="FEWRALX":
   1 D$="FEVR.DAT":
   1 D$="Esli on probevt 10 krugow, zna-"+
   1 D$="Esli A<W, to perejti na  opera-"+
   1 D$="E, F.":
   1 D$="E  OUT OF DATA, 20:1":
   1 D$="Dwa rekwizita: ob'ekt-'Telefon"+
   1 D$="Dwa  operatora  priswaiwaniq  i"+
   1 D$="Do wykl`~eniq  ma{iny ili smeny"+
   1 D$="Dlq wywoda na disk.":
   1 D$="Dlq wwoda.":
   1 D$="Dlq togo, ~toby po nomeru (met-"+
   1 D$="Dlq togo, ~toby izmenitx posle-"+
   1 D$="Dlq togo,  ~toby  bystro  najti"+
   1 D$="Dlq opisaniq sposoba wy~isleniq"+
   1 D$="Dlq obnuleniq q~ejki U.":
   1 D$="Dlq hraneniq mnogih  ~isel  pod"+
   1 D$="Dlq  |togo  nuvno   prosmotretx"+
   1 D$="Datu wwodit programmist.":
   1 D$="Dannye tipa 'slowo', 'cepo~ka"+
   1 D$="Da, budet.":
   1 D$="DRAW":
   1 D$="DLQ OB]ENIQ MEVDU ^ELOWEKOM"+
   1 D$="DIR MX1:*.DAT":
   1 D$="DELETE THE SYMBOL Z.":
   1 D$="Celyj tip sodervimogo q~ejki K%.":
   1 D$="COPY/SYS MX0:*.* MX1:":
   1 D$="COPY":
   1 D$="COPY MX1:*.DAT MX0:":
   1 D$="Bukwennyj(simwolxnyj) tip soder-"+
   1 D$="Budet  pe~atatxsq  menx{ee   iz"+
   1 D$="Blagodarq    |lektronno-lu~ewoj"+
   1 D$="Begu na meste.":
   1 D$="BRIGHT 0":
   1 D$="BORDER,BRIGHT":
   1 D$="Auditoriq 6":
   1 D$="A1- 20 ~isel,   W1- 3 ~isla.":
   1 D$="A- 10 ~isel,   W- 9 ~isel.":
   1 D$="A CLOCK":
   1 D$="A      B":
   1 D$="9 STOP STATEMENT, 30:1":
   1 D$="9 STOP STATEMENT, 10:2":
   1 D$="9 PRINT #1,F$,D$":
   1 D$="9 GO TO 17":
   1 D$="8 ~isel i 1 ~islo. Predydu}ie 7"+
   1 D$="8 imen.":
   1 D$="7 KNIG":
   1 D$="7        9":
   1 D$="64, t.e. poslednee ~islo.":
   1 D$="60>RECTORE: GO TO 10":
   1 D$="60>GO TO 20":
   1 D$="60 delenij.":
   1 D$="6, 7 i 8.":
   1 D$="6 LET Z=X(3)+X(4)":
   1 D$="6 LET M=
   1 D$="6 IF X<8 THEN GOTO 4":
   1 D$="6 GO TO M":
   1 D$="50 DATA ~clojenie~,10,20,40,50":
   1 D$="5 w stepeni 5 rawno 3125":
   1 D$="5 raz.":
   1 D$="5 i 8":
   1 D$="5 LET D=
   1 D$="5 IF X<8 THEN GOTO 3":
   1 D$="5 IF X<10 THEN GOTO 3":
   1 D$="5 GO SUB 10":
   1 D$="40,40":
   1 D$="40*6*2=480 blokow.":
   1 D$="40 PRINT A$;~ ~;A;~+~;B;~=~;A+B":
   1 D$="4) Pe~atatx H":
   1 D$="4 ~isla.":
   1 D$="4 STOP":
   1 D$="4 Operatora    6 Operatorow":
   1 D$="4 LET C$=A$+B$":
   1 D$="4 KNIGI":
   1 D$="4 4 8":
   1 D$="30>PRINT ~INVERSE 1~":
   1 D$="30>PRINT AT 10,10;~1234~":
   1 D$="30>PRINT AT 0,0;~MASTER~":
   1 D$="30>PRINT A(1);~ ~;A(2);~ ~;A(3":
   1 D$="300 delenij.":
   1 D$="30 READ B":
   1 D$="3 rublq.":
   1 D$="3 i 2.":
   1 D$="3 PRINT K":
   1 D$="3 PRINT A$(3)":
   1 D$="3 LET Z=Z+2":
   1 D$="3 LET Y=
   1 D$="3 LET X=X+3":
   1 D$="3 LET X=X+2":
   1 D$="3 LET X=8":
   1 D$="3 LET K=1":
   1 D$="3 4           3 4 5":
   1 D$="25>PRINT ~urok 1~":
   1 D$="20>PRINT ~START=~;START":
   1 D$="20>PRINT AT N,10;A$":
   1 D$="20>PRINT A: PRINT A$":
   1 D$="20>PRINT A$;~-~;2":
   1 D$="20>BRIGHT 1: PRINT ~BRIGHT 1~":
   1 D$="20 ~isel, ot 1 do 20.":
   1 D$="20 READ A":
   1 D$="20 PAUSE 100: OVER 1":
   1 D$="20 PAUSE 100: FLASH 0":
   1 D$="20 INVERSE 1":
   1 D$="20 FOR N=1 TO 5: INPUT A(N):NE":
   1 D$="20  ~MASTER COMPUTER~":
   1 D$="20          10":
   1 D$="2 rublq.":
   1 D$="2 LET X=10":
   1 D$="2 LET K=1+5":
   1 D$="2 FOR K=2 TO 8 STEP 2":
   1 D$="2 FOR K=1 TO 20 STEP 1":
   1 D$="2 DIM F$(10)"+
   1 D$="2              2 2":
   1 D$="1994 operatora: 997 operatorow"+
   1 D$="17 LET W=
   1 D$="17 LET C=A/B: RETURN":
   1 D$="17 LET C=1/(
   1 D$="16 LET W=
   1 D$="16 LET C=A*B: RETUTN":
   1 D$="16 LET C=
   1 D$="15 {agow.":
   1 D$="15 marta 1989 g.":
   1 D$="15 LET W=
   1 D$="15 LET C=A-B: RETURN":
   1 D$="15 LET C=
   1 D$="14 LET C=A+B: RETURN":
   1 D$="14 LET C=
   1 D$="11 ~asow  35 minut  45 sekund.":
   1 D$="100 operatorow cikla.":
   1 D$="100 indiwidualxnym garavam.":
   1 D$="100 i 5000":
   1 D$="10 zna~enij.":
   1 D$="10 ^isel.":
   1 D$="10 READ A$":
   1 D$="10 PRINT ~INVERSE 0~":
   1 D$="10 PRINT AT 10,10;~OVER~":
   1 D$="10 PAPER 0: FOR N=0 TO 7: INK N":
   1 D$="10 LET START=100":
   1 D$="10 LET A$=~konez uroka~":
   1 D$="10 LET A$=~ZX BASIC~:LET N=10":
   1 D$="10 INPUT A: INPUT A$":
   1 D$="10 INK 0: FOR N=0 TO 7: PAPER N":
   1 D$="10 FLASH 1: PRINT ~MASTER~":
   1 D$="10 DIM A(5)":
   1 D$="10 BRIGHT 0:PRINT ~BRIGHT 0~":
   1 D$="1-ZIMA":
   1 D$="1-J WES = 13.16 KG":
   1 D$="1, 5, 32.":
   1 D$="1, 2, 3, 4, 5, 6, 7, 8, 9, 10.":
   1 D$="1 ~islo.":
   1 D$="1 zna~enie.":
   1 D$="1 zapisx.":
   1 D$="1 6 7":
   1 D$="1 3 6":
   1 D$="1 3 5           1 4 7":
   1 D$="1 2 3.":
   1 D$="1 2 3":
   1 D$="1 2 3 4":
   1 D$="1  2  3":
   1 D$="0 OK, 40:1":
   1 D$="0 OK, 0:1":
   1 D$="0   6   0.3":
   1 D$="-40,-40,2":
   1 D$=");~ ~;A(4);~ ~;A(5)":
   1 D$="'Wyrezaet' podstroku w stroke"+
   1 D$="'Skleiwaet'  cepo~ki   (stroki)"+
   1 D$=" wwedite PRINT":
   1 D$=" wwedite NEXT ":
   1 D$=" wwedite LET  ":
   1 D$=" o v i b k a  ! ":
   1 D$=" najmite NEXT ":
   1 D$=" 5 6 7":
   1 D$="  wwedite ~$~  ":
   1 D$="  wwedite to   ":
   1 D$="  wwedite FOR  ":
   1 D$="  najmite RUN  ":
   1 D$="  5              7":
   1 D$="    BORDER 0    ":
   1 D$="    BORDER "+
   1 D$="             ":
   1 D$="                ":
   1 D$="                      ":
   1 CONVER-Utility  npeqcma
   1 CONTINUE":
   1 COMPLETE A WORD
   1 CODE LENGTH:
   1 CAPS SHIFT+SYMBOL SHIFT";:
   1 CAPS SHIFT+SPASE":
   1 CAPS SHIFT+6,CAPS SHIFT+7":
   1 CAPS SHIFT , SIMBOL SHIFT":
   1 CAPS SHIFT + SIMBOL SHIFT";:
   1 CAPS SHIFT + 8";:
   1 CAPS SHIFT + 5":
   1 CAPS SHIFT
   1 CAPS LOCK( CAPS SHIFT + 2)";:
   1 C W E T A . G R F I K A  ":
   1 BEEEEFFFFFGGGGGBBBBDDDD0
   1 BEEEBFFFFFGGGGGBBBBDDDD0
   1 BBEEEFFFFFGGGGGBBBBDDDD0
   1 BBEEEBFFFBGGGGGBBBBDDDD0
   1 BBBBBFFFFFBBBBBBBBBDDDD0
   1 BBBBBFFFFFBBBBBBBBBBBBB0
   1 BBB8888888888888888
   1 BASIC LENGTH:
   1 B$(Z)=W$(R,Q):
   1 APA,OTCEKAEMA
   1 AMETPA AC,":
   1 ABS -3.2=ABS 3.2=3.2":
   1 ABEST D  C
   1 ABEST *  Bh
   1 A:RETURN":
   1 A,C1,L ";:
   1 A): RETURN":
   1 A$="zwet fona opredel_et operator   PAPER (~bumaga~)":
   1 A$="wyswanna_ ili nabranna_ c klawi-atury ctroka mojet byt^ otkor-  rektirowana pri pomo`i ctrohno- go kurcora i direktiwy DELETE.  "+
   1 A$="w programme ctroki 20 i 25 odi- nakowogo coderjani_. dl_ togo,  htoby ubrat^ lqbuq is nix, do-  ctatohno nabrat^ ee nomer i na- jat^ ENTER":
   1 A$="tip peremennyx i rasmernoct^    macciwa opredel_qtc_ operatorom DIM. dl_ hiclowyx peremennyx w  ckobkax ukasywaetc_ kolihectwo  @lementow macciwa, a dl_ cim-   wol^nyx - takje dlinu kajdo' pe-remenno'":
   1 A$="teku`a_ posizi_ grafiki":
   1 A$="teku`a_ grafihecka_ posizi_":
   1 A$="takim obrasom, wyrajenie        LET A$=~ZX BASIC~               mojno perewecti kak             ~cimwol^no' peremenno' ~a~ pri- cwoit^ snahenie ~ZX BASIC~~, a  wyrajenie
   1 A$="sa operatorom FOR cleduet hiclo-wa_ peremenna_ (w dannom cluhae ~N~). ona imenuetc_ peremenno'  zikla.":
   1 A$="pri nabore ctroki c klawiatury  ona rasme`aetc_ w nijne' hacti  @krana wideomonitora":
   1 A$="polny' perehen^ operatorow i    funkzi' _syka dan w opicanii k  komp^qteru, po@tomu my snakomim wac tol^ko c ocnownymi is nix.":
   1 A$="peremenna_ - odna ili neckol^ko bukw, kotoro' operatorom LET    pricwoeno kakoe-libo snahenie.  ono mojet ismen_t^c_ w xode wy- polneni_ programmy.":
   1 A$="operator ~PLOT~ okraviwaet zwe- tom tona odnu tohku @krana (ime-nuetc_ ~pikcel^~) i uctanawliwa-et teku`uq posiziq wywoda grafi-ki na @kran.":
   1 A$="operator ~DRAW~ prowodit liniq  is teku`e' grafihecko' posizii. on mojet imet^ kak dwa, tak i   tri argumenta.":
   1 A$="operator ~CIRCLE~ ricuet na @k- rane krug, zentr kotorogo po    oc_m ~X~ i ~Y~ opredel_qt per-  wye dwa argumenta, a radiuc -   treti' argument":
   1 A$="operator oVeR c argumentom ~1~  poswol_et nanocit^ tekct powerx ranee wywedennogo na @kran":
   1 A$="operator INk (~hernila~) opre-  del_et zwet tekcta ili grafiki":
   1 A$="operator INVERSE c argumentom   ~1~ men_et mectami zweta fona   (~bumagi~) i tona (~hernil~)":
   1 A$="operator FLASH uctanawliwaet re-jim merzani_ tekcta. argument 1 osnahaet, hto merzanie uctanow- leno, o - cbroveno":
   1 A$="operator BRIGHT C argumentom ~1~uctanawliwaet powyvennoe cwehe- nie @krana":
   1 A$="nomerom":
   1 A$="kolihectwo":
   1 A$="kak widno, ctroka bes nomera wy-polnena komp^qterom kak direkti-wa crasu je pocle najati_ ENTER i  w programmu ne wnecena.      ctroki, coderja`ie ne cootwet-  ctwuq`ie _syku wyrajeni_, w pro-grammu ne wnoc_tc_ i ne wypoln_-qtc_. pri @tom komp^qter ukasy- waet ovibku migaq`im kurcorom   ~?~.":
   1 A$="kak widno, clowo ~START~, nab-  rannoe w kawyhkax, wywedeno na  @kran, a ~START~ bes kawyhek in-terpretirowano kak hiclowa_ pe- remenna_ i wywedeno ego snahenie(100)":
   1 A$="imenem":
   1 A$="hiclowa_ peremenna_ mojet cocto-_t^ i is neckol^kix bukw. htoby otlihit^ hiclowye peremennye ot cimwolow i ix ctrok, poclednie  saklqhaqtc_ w kawyhki.":
   1 A$="gruppy dannyx mogut formirowat^-c_ i w wide macciwa. macciw -   @to gruppa peremennyx c odnim   imenem, otlihaq`iec_ drug ot    druga por_dkowym nomerom.":
   1 A$="ecli pocle INPUT ctoit im_ cim- wol^no' peremenno', to mojet    byt^ nabrano lqboe cohetanie    bukw i zifr. ecli je peremenna_ hiclowa_, to mojno nabirat^     tol^ko zifry, libo bukwy, coot- wetctwuq`ie imeni hiclowo' pere-menno', kotoro' snahenie uje    pricwoeno":
   1 A$="ecli net, to pribawl_et k nemu  hiclo, uctanowlennoe clujebnym  clowom 
   1 A$="ecli N rawno ili bol^ve predel^-nogo snaheni_, to wypoln_etc_   cleduq`a_ sa ziklom ctroka, libo(ecli zikl sawervaet programmu) wydaetc_ coob`enie ~0 ok~":
   1 A$="dl_ peredwijeni_ ctrohnogo kur- cora wlewo cleduet odnowremenno najat^ CAPS SHIFT i 5, wprawo - CAPS SHIFT i 8":
   1 A$="dl_ neodnokratnogo wypolneni_   opredelenno' operazii icpol^su- qtc_ operatory zikla            FOR...TO - NEXT.":
   1 A$="dl_ nabora hiclowyx peremennyx  icpol^su'te tol^ko zifry":
   1 A$="ctroki programmy nahinaqtc_ c   nomera":
   1 A$="ctroka, ne coderja`a_ cintakci- heckix ovibok, pocle najati_    klawivi ENTER sanocitc_ komp^q- terom w programmu i otobrajaetc_w werxne' hacti @krana":
   1 A$="ctroka w nijne' hacti @krana -  coob`enie komp^qtera o wypolne- nii direktiwy, coderja`e'c_ w   perwom operatore ctroki 0. poc- le @togo dl_ wywoda programmy na@kran nujno najat^ ENTER":
   1 A$="coob`enie  E  OUT OF DATA,  20:1osnahaet, hto cpicok  DATA  oko-nhilc_. dl_ prodoljeni_ raboty  programmy nujno libo dopolnit^  ego, libo ismenit^ stroku 60,do-polniw ee operatorom ~RESTORE~."
   1 A$="chitywanie dannyx proiswoditc_  pocledowatel^no iso wcex cpickowDATA, racpolojennyx w programme.cama je ctroka DATA programmo'  ne wypoln_etc_.":
   1 A$="c klawiatury mojno nabrat^ ctro-ki c nomerami ot 1 do 9999, in- terwal mejdu nomerami ctrok op- redel_et pol^sowatel^. kak pra- wilo, @tot interwal bol^ve 1,htoposwol_et wpocledctwii wnocit^  nowye ctroki. ctroka, nabranna_ bes nomera, chitaetc_ nolewo' i wypoln_etc_ komp^qterom nemed-  lenno.":
   1 A$="b=R,  
   1 A$="argumentami @togo operatora _w- l_etc_ polojenie pikcel_ po oc_m~x~ (makcimal^noe snahenie 256) i ~Y~(makcimal^noe snahenie 175)               ":
   1 A$="OTPE3KOB AB 
   1 A$="I"+A$+".FAV"
   1 A$="HEKOTOPO
   1 A$="   programmny' kurcor naxodit-  c_ w ctroke, wwedenno' w prog-  rammu pocledne', no mojet byt^  pereme`en wwerx (odnowremennoe  najatie CAPS SHIFT i 7) i wnis  (CAPS+6)"+
   1 A$="                                zwet ~0~(herny') wnow^ ne widen is-sa cowpadeni_ ~bumagi~ i     ~hernil~                                                        ":
   1 A$="                                tekct c zwetom ~hernil~=0 ne wi-den, tak kak on cowpadaet c zwe-tom fona                                                        ":
   1 A$(A)=A$(A-1
   1 A$(A)=A$(A+1
   1 @@@A@B@C@D@E@F@G`@`A`B`C`D`E`F`G
   1 ?bior7   CX
   1 ?BIORITM7Bx
   1 ???????? ?
   1 >bior.2  C@
   1 =bior.1  C
   1 =BIORITM Bb
   1 ==8888888888888===8888888
   1 ;t;".";m;".";j;"     "
   1 ;n$,m$(m)(
   1 ;N;"-WOPROS"
   1 ;,,,,,,,,,,,,:
   1 ;,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,:
   1 ;"wwedite operator";B$
   1 ;"u tebq: 
   1 ;"peterburg"
   1 ;"ovibka!":
   1 ;"otwet   prawilxnyj?"
   1 ;"najdi slowo ":
   1 ;"nahal^noe":
   1 ;"nahal^noe"
   1 ;"intelektual|n{
   1 ;"e}@ stranica":
   1 ;"^[[[[[[[[_":
   1 ;"[OPEN] OUTPUT ";:
   1 ;"[OPEN] INPUT ";:
   1 ;"Z[[[[[[[[\";
   1 ;"ZAPUSK   \KRANNOGO    REDAKTORA":
   1 ;"ZAMENA.":
   1 ;"Z> - ";:
   1 ;"Wyhod w glawnoe men`.":
   1 ;"Wyhod w glawnoe men`."
   1 ;"Wyhod iz redaktora"
   1 ;"Wy uwereny ?":
   1 ;"Wwodite stroku"
   1 ;"Wwedite ~islo po Wa{emu wyboru. ";
   1 ;"Wwedite zanowo ";N;" stroku    "
   1 ;"Wwedite simwol-->";:
   1 ;"Wwedite nomer-->";
   1 ;"Wwedite nomer uroka-->";
   1 ;"Wwedite nomer komandy-->";
   1 ;"Wwedite fragment teksta"
   1 ;"Wwedite bukwu ili ";:
   1 ;"Wwedite  operator,","komandu ili  funk-","ci` izobravennye w","sinem oko{ke."
   1 ;"WYHOD IZ REDAKTORA":
   1 ;"WWEDITE NOMER FUNKCII-->       ":
   1 ;"WRITE.":
   1 ;"WRITE SELECT":
   1 ;"WRITE ";:
   1 ;"WOT PRAWILXNYJ OTWET":
   1 ;"WNIMANIE!!!":
   1 ;"WNIMANIE !":
   1 ;"WNIMANIE !"
   1 ;"WNIMANIE !!!":
   1 ;"W> - ";:
   1 ;"V=  (R -X )dX=(R X-- )"
   1 ;"V =  h (R--.h)"
   1 ;"USLOWIQ PRIMENENIQ I PUSK PROG-":
   1 ;"Tendenciy:";
   1 ;"TAK dervatx !":
   1 ;"StarGaser"
   1 ;"Simwolow-";51
   1 ;"S^ASTLIWO!                      
   1 ;"SLOWARX":
   1 ;"SFERY:                         ":
   1 ;"SET SECTION lines":
   1 ;"SET SECTION ";:
   1 ;"SET PAGE lines":
   1 ;"SET PAGE ";:
   1 ;"SEKCIJ.                        ":
   1 ;"S> - ";:
   1 ;"S(X)=  .BD = (OD -OB )":
   1 ;"R_E_V_I_M-";W+1
   1 ;"RAZMERY BUFEROW":
   1 ;"RAS^ETNYE FUNKCII DLQ  KRUGA  I":
   1 ;"RAMMY.                         ":
   1 ;"Q> - ";:
   1 ;"Prawoq ~astx"
   1 ;"Posle kakoj stoki wstawlqtx"
   1 ;"PREDSTAWLQ@T..."
   1 ;"POSMOTRITE NA PRAWILXNYJ OTWET":
   1 ;"PEREME]ENIE, KOPIROWANIE I PRE-":
   1 ;"PEREME]ENIE KURSORA PO  STRANI-":
   1 ;"PAPER ";i:
   1 ;"O{ibo~nyj  simwol,    POWTORITE.":
   1 ;"O{ibok: ";N-R
   1 ;"O{ibka. Powtorite wwod-->";
   1 ;"O{ibka wwoda. Powtorite":
   1 ;"Oqibka "'
   1 ;"OD=R ;OB=X"
   1 ;"OBZOR FUNKCIJ":
   1 ;"OBRAZOWANIE TEKSTA.            ":
   1 ;"O.K. (Da/Net) ?"
   1 ;"Net  spiska.    POWTORITE  WWOD.":
   1 ;"Navmite l`bu` klawi{u"
   1 ;"NET BOLX[E PAMQTI":
   1 ;"NEMNOVKO PODOVDITE"
   1 ;"NE NAJDENO"
   1 ;"NAZNA^ENIE.":
   1 ;"NAVMITE KLAWI[U WWOD DLQ WYHODA"
   1 ;"Lewoq ~astx"
   1 ;"Letter-->";
   1 ;"LET HE RUN.":
   1 ;"Konec raboty.":
   1 ;"Konec programm{ (Da/Net) ?"
   1 ;"Kak wy dumaete, Wa{":
   1 ;"KOMANDY OPREDELENIQ  STRANIC  I"
   1 ;"KOMANDY OPERATORA.":
   1 ;"INCLUDE ";:
   1 ;"HELP>.":
   1 ;"Great thanks for KVED ltd.";
   1 ;"GOLD>.":
   1 ;"ESLI  PRO^ITALI,  NAVMITE  WWOD"
   1 ;"Dlq prodolveniq navmite klawi{u"
   1 ;"Dlq na~ala raboty navmite  WWOD":
   1 ;"Disk by LagSoft 8.2.94":
   1 ;"Dal|qe (Da/Net) ?"
   1 ;"DO SWIDANIQ!!!":
   1 ;"D-da   N-net -->";
   1 ;"Corrected by O.Kozloff & Co"
   1 ;"COPY MX1:*.DAT MX0:*.TXT":
   1 ;"CAM I SEKCIQM.                 ":
   1 ;"Awtory:"
   1 ;"ABTOP  OC
   1 ;"@mocional|n{
   1 ;"<UNDELLINE> - ";:
   1 ;"<UNDELCHAR>- ";:
   1 ;"<SUBSTITUTE> - ";:
   1 ;"<SU/S> <SU/S> - ";:
   1 ;"<SU/S> - ";:
   1 ;"<SU/O> - ";:
   1 ;"<R\CI>";
   1 ;"<RESET>  ";:
   1 ;"<REPLACE> - ";:
   1 ;"<PASTE> - ";:
   1 ;"<LF> - ";:
   1 ;"<GOLD>":
   1 ;"<DELWORD> - ";:
   1 ;"<DELLINE> - ";:
   1 ;"<DELLINE> 
   1 ;"<DELEOL> - ";:
   1 ;"<DELCHAR> - ";:
   1 ;"<DEL> - ";:
   1 ;"<CUT> - ";:
   1 ;"<APPEND> - ";:
   1 ;"3 PRINT X":
   1 ;"2.  kempston":
   1 ;"16 RETURN     ":
   1 ;"1234567890123456789012345678901  "(
   1 ;"1. klawiatura";
   1 ;"1- nabor redaktirowane i 3apuck"''"2- Operatory LET PRINT INPUT"''"3- zikly podprogrammy perexody"''"4- Operatory 
   1 ;"--VDITE KONCA ZAGRUZKI--"
   1 ;"--NE WERNO--"
   1 ;"--NAVMITE NA L@BU@ KLAWI[U--"
   1 ;"--KONEC RABOTY--     Wy uwereny?":
   1 ;"--------------------------------":
   1 ;"**WY PRAWY**":
   1 ;"**U^EBNYJ  TEKSTOWYJ REDAKTOR**"
   1 ;" rezulxtat? ":
   1 ;" powtoritx  ":
   1 ;" Zenit ";
   1 ;" Wyhod w glawnoe men`.":
   1 ;" Wwedite ~asy (2 cifry) i        minuty (2 cifry).":
   1 ;" Wwedite geografi~esku` dolgotu  mesta  rovdeniq   w   gradusah  (3 cifry) i minutah (2 cifry)":
   1 ;" Wwedite Wa{e imq.":
   1 ;" Wnimanie: wremq rovdeniq dolvnobytx wyraveno po Grinwi~u.       U~tite letnij i dekretnyj sdwigwremeni.":
   1 ;" Werno: ";R;
   1 ;" Prosim ispravit|":
   1 ;" Preobl ";
   1 ;" NAVMITE   NA   KLAWI[U   WWOD "
   1 ;" 1. Raspe~atatx goroskop":
   1 ;" --MOVETE  NAVATX  NA  WWOD--"
   1 ;" (7:30 wwoditsq kak 0730)"
   1 ;" ";C$(N);" "
   1 ;"  |to "+z$(ll
   1 ;"  wyhod  ";
   1 ;"  powtoritx ":
   1 ;"  powtoritx "
   1 ;"  Wwedite {irotu mesta rovdeniq   wgradusah (3 cifry) i minutah           (2 cifry)."
   1 ;"  Wne{nie planety: Uran 
   1 ;"  Sewernaq ili `vnaq?": 
   1 ;"  NAVMITE  NA  KLAWI[U  WWOD   "
   1 ;"   Esli {irota neizwestna,             navmite <enter>"
   1 ;"   ???   ";
   1 ;"   ???   ":
   1 ;"    Wwedite wremq rovdeniq":
   1 ;"    Wwedite mesqc rovdeniq                  (ciframi)"
   1 ;"    Wwedite god rovdeniq."
   1 ;"    Wwedite datu rovdeniq                (ciframi)":
   1 ;"    Wosto~naq ili zapadnaq?":
   1 ;"    Navmite l`bu` klawi{u...    ";:
   1 ;"    Esli dolgota neizwestna,           navmite <enter>"
   1 ;"    --ZAWER[ENIE RABOTY--      "
   1 ;"     O{ibka.  Powtorite wwod":
   1 ;"     Navmite l`bu` klawi{u":
   1 ;"     Konec raboty s kartotekoj":
   1 ;"     Dannye dlq goroskopa":
   1 ;"     1 2 3 4 5 6 7 8 9 0"
   1 ;"     --GLAWNOE MEN@  K52--     ":
   1 ;"     ---TRENAVER  STROK---     "
   1 ;"      Navmite l`bu` klawi{u     " 
   1 ;"      A      A      A      ":
   1 ;"         1         2         3  "(
   1 ;"         ":
   1 ;"           WNIMANIE!            "
   1 ;"             MEN@              "
   1 ;"                           ":
   1 ;"                                ":
   1 ; dlqobratnogo preobrazowaniq nado   razdelitx na 
   1 ;                                              
   1 ;                            
   1 ;                     
   1 ;                 
   1 ;              
   1 ;             
   1 :"''"intelekt.:"
   1 :"''"@mocional|n{
   1 :                                          
   1 94.326675,546.15335,-.000175,.0224925,0,0,75.273925,690.11493,.8141,.00035,326.7034,2.74735,.0006225,4.4481,-.02385,0,574.86805,362.28265,0,.6216,0,0,98.79435,283.80348,0,0,272.3861,3.490025,.000775,42.86695,0,0,
   1 90 GO TO 60                    100 LET Z=(X+X)/X"
   1 8==8888888888888888888888
   1 896.1896,89997.625,-.000375,.0418775,-.0001025,0,2.5000003,253.05208,4.29795,.001125,0,0,0,0,0,0,255.69845,373681.29,0,.514035,.00005,0,.967745,71.884375,.9257,.0003,117.86485,2.963,.000425,17.5072,.00465,-.000025,531.50805,146294.5,.003225,.01705,-.0001,0,1.80833,135.96048,1.270475,-.003475,189.44913,2.249625,.00105,8.484075,.0025,0,798.82325,47849.645,.00045,.233275,.00025,0,3.809225,713.5794,2.674425,.000325,121.9661,1.927475,0,4.625825,-.0017,.000025,563.32083,7586.7301,-.0018,.120825,.0004,0,13.006403,683.19385,1.498575,.00175,248.60845,2.52635,.000875,3.27185,-.01424,0,438.66555,3053.8787,-.00125,.139725,-.000875,0,23.886875,845.76943,2.713,.00245,281.97598,2.1829875,-.000375,6.2313,-.0095,-.00005,181.62205,1070.9470,.0002,.11586,.000075,0,48.04535,245.17888,2.464425,-.002675,183.69275,1.246675,.003275,1.93115,.001575,.0001,Q
   1 88>>>>88888888888888888888888888
   1 88888>>>>>>>>>>>>88
   1 88888888888888<
   1 8888888888888888888888888888888888888888888888888888888888888888
   1 8888888888888888888888888
   1 888888888888888888888
   1 8888888888888888
   1 888888888888888
   1 888888888888)**)8**
   1 8 ~isel i 1 ~islo. Predydu}ie 7
   1 70 GO TO 30"
   1 7    Sektor : 2 
   1 64000,1535
   1 60 IF B>A THEN PRINT""";:
   1 6    Sektor : 12
   1 50 IF B<A THEN PRINT""";:
   1 5,   operator":
   1 5 PRINT SEG$(S$(1),1,6)":
   1 4astr.fntC
   1 45   Sektor : 1 A18
   1 42   Sektor : 1 M12
   1 40 PRINT 1,,2":
   1 40 IF A=B THEN PRINT";:
   1 40 GO TO 30":
   1 4    Sektor : 10
   1 36   Sektor : 3 p01
   1 30 PRINT":
   1 30 PRINT X+Y":
   1 30 INPUT ";:
   1 3","IF C>8
   1 3 READ A$":
   1 3 LET Z=Z+2
   1 3    Sektor : 10
   1 3                 RETURN                       NEXT J                       GO TO 5                      INPUT E                      GO SUB 1000                  CLS                          NEXT R                       LET B=A                      IF S<0
   1 3                 0F C>8
   1 26   Sektor : 9                                         
   1 20 PRINT 1;2":
   1 20 LET Y=34":
   1 20 INPUT A:CLS":
   1 2.0 = 2 ; 0.23 = .23"
   1 2              2 2
   1 16384,6912
   1 120","IF S<0
   1 120                  PRINT B                      CLS                          RETURN                       FOR X=3 TO 10 STEP 2         LET X=12                     LET A=18                     LIST                         NEXT M                       STOP                         LIST                         PRINT W                      GO TO 28                     GO SUB 2100                  PRINT A                      GO TO 15                     LET Z=X                      IF Z=100
   1 120                  0F S<0
   1 11   Sektor : 5 
   1 10 REM A=1E-9":
   1 10 REM ";:
   1 10 PRINT A=1E9":
   1 10 PRINT 26+48 ";:
   1 10 PRINT 1,2":
   1 10 PRINT 0.5*1E9":
   1 10 LET X=12":
   1 10 LET A=5":
   1 10 LET A=1E9":
   1 10 LET A=1E-9":
   1 10 LET A=1E-10":
   1 10 GOSUB 1000                   20 LET Y=SIN X/X                30 GOSUB 1000                   40 LET Z=(X+X)/X                   ...                        1000 INPUT X                    1010 IF X
   1 10 FOR J=0 TO 12                20 BEEP 1,J                     30 NEXT J":
   1 10 FOR I=1 TO 100               20 PRINT I,                     30 NEXT I ":
   1 10 FOR I=0 TO 100 STEP 2        20 PRINT I                      30 NEXT I":
   1 10 DEF FN A(X)=X*X":
   1 10 DATA 1,2,-5E-1               20 DATA 0                       30 DATA -3,5":
   1 1 rawno 1.   "
   1 1    Sektor : 7 
   1 0p00000000000000000000000000000
   1 0P00000000000000000000000000000
   1 0ET X=12                     0ET A=18                     0RINT A                      0RINT B                      0NPUT E                      0NPUT T                      0ETURN                       0O SUB 1000                  0O SUB 2100                  0EXT J                       0EXT M                       0O TO 15                     0O TO 28                     0TOP                         0OR X=3 TO 10 STEP 2         0OR A=1
   1 000xxxxxxxxx00xxxxxxxxxxxx0prp0
   1 000xxxxxxxxx00xxxxxxxxxxxx0ppp0
   1 000qqqqprrrrpppppqqqqqrprrpppp0
   1 000qqqqprrrppppppqqqqqrrrppppp0
   1 000qqqqpprrrpppppqqqqqrprrpppp0
   1 000qqqqpprrrpppppqqqqprprrpppp0
   1 000qqqqppppppppppppppprrrrpppp0
   1 000pqqqppppppppppppppprrrrpppp0
   1 000pppprrrrrpppqqqqqqppppppppp0
   1 000pppprrrrppppppppppppppppppp0
   1 000pppprrprrppppqqqqqppppppppp0
   1 000pppppppppppppppppprrprppppp0
   1 000BBBBEEEEEBBBBBGGGGBBBBBDBDD0
   1 000BBBBEEEEBBBBBBBBBBBBBBBBBBB0
   1 000BBBBEEBEEBBBBBGGGGBBBBBDBDD0
   1 000BBBBCCCBBFFFFFBBBBBBBBBBBBB0
   1 0000000000000000000000000000000000i0i0i0i0i0i0i0i0i0i0i00XX000000000000000000000000000000XX0000000i0i0i0i0i0i0i0i0i0i0i000000GC000000000000000000000000000000CC000i0i0i0i0i0i0i0i0i0i0i0000000000000000000000000000000000EEEEEEEE
   1 0000000000000000000000000000000000M0M0M0M0M0M0M0M0M0M0M00DD000000000000000000000000000000DD0000000M0M0M0M0M0M0M0M0M0M0M000000GC000000000000000000000000000000CC000M0M0M0M0M0M0M0M0M0M0M000000000000000000000000000000000099999999
   1 000000000000000000000000000000000000000000000000000000000000000000ppppppppppppppppppppppppppp0
   1 000000000000000000000000000000000000000000000000000000000000000000DDDDDDDDBBFFFBBBBBBBBBBBBBB0
   1 0,000000001 
   1 0 THEN RETURN"
   1 0 THEN 50              30 PRINT ";:
   1 0 THEN 100             80 PRINT ";:
   1 /k*y))+769
   1 /k*l))-4586.4
   1 /k*(l1-y)))+148
   1 /k*(l-y)))
   1 /k*(l-l1)))-125
   1 /k*(l+y)))
   1 /k*(l+l1-y)))+192
   1 /k*(l+l1)))-55
   1 /k*(23.452294
   1 /ASTROLOGB
   1 .posle |togo w bloke dannyh os-tanetsq ~islo 
   1 .dlq perewoda iz gradusow w radi-any neobhodimo ~islo razdelitx  na 180 i umnovitx ego na 
   1 ... THEN   w podprogramme prower_et ictin- noct^ utwerjdeni_ ~N bol^ve 10~. ecli utwerjdenie ictinno, to   wypoln_etc_ operator, cleduq`i' sa ~THEN~, ecli net, to prog-   ramma perexodit k cleduq`e'     stroke":
   1 ... THEN   w podprogramme prower_et ictin- noct^ utwerjdeni_ ~N bol^ve 10~. ecli utwerjdenie ictinno, to   wypoln_etc_ operator, cleduq`i' sa ~THEN~, ecli net, to prog-   ramma perexodit k cleduq`e'     ctroke":
   1 . Posemu polxzowatxsq kopirow}
   1 .          komanda";:
   1 .                                                        
   1 .                                                      
   1 .                                                   
   1 .                                                  
   1 .                                                
   1 .                                          
   1 .                                        
   1 .                                       
   1 .                                      
   1 .                                   
   1 .                              
   1 .                            
   1 .                       
   1 .                      
   1 .                     
   1 .                
   1 .          
   1 .         
   1 -dlq bukw.
   1 -X;"-SWOBODNYH STROK  "
   1 -I5.FAV  B
   1 - wyhod iz programmy.":
   1 - UROK7 ""podprogrammy.funkcii"
   1 - UROK6""blok dannyh.massiwy.""":
   1 - UROK 9 ""zwuki.cweta.            grafika."""
   1 - UROK 8 ""rabota s wne{nej        pamqtx`""":
   1 - @to prikas pro-gramme pere'ti k stroke, nomer  kotoro' ukasan @tim operatorom.":
   1 - @to prikas pro-gramme pere'ti k ctroke, nomer  kotoro' ukasan @tim operatorom.":
   1 ,zna~enie,  kotoroj nado izmenitx znak 
   1 ,w kotorom bukwy poqwlq`tsq kak zaglawnye.";:
   1 ,kotorye ispolxzu`tsq dlq sostawleniq slovnyh  uslowij.                        "
   1 ,kotoroe wy~islqetsq i   priswaiwaetsq peremennoj: 
   1 ,kotoroe budet  priswoeno peremennoj 
   1 ,esli argument 
   1 ,,,,,,,,,,,,,,,,,,,,,,,,,,,,:
   1 ,"Sentybr|",8
   1 ,"Oktybr|",8
   1 ,"Noybr|",8
   1 ,"Fevral|",8
   1 ,"Dekabr|",8
   1 ,"Avgust",8
   1 ,"Aprel|",8
   1 ,  Nep-tun 
   1 +I4.FAV  B
   1 +602961611
   1 +2400.0513
   1 +1732564379
   1 +"~to wse-rawno daet 0."
   1 +"~it distanciq projdena."
   1 +"~islqetsq.":
   1 +"~isel.":
   1 +"|lement bloka- MARIQ.":
   1 +"{itx tekst |toj programmy.":
   1 +"zna~enie 6.":
   1 +"zilsq.":
   1 +"zatem \tot 0 umnovaetsq  na  H,"+
   1 +"wy~islq`tsq.":
   1 +"wypolnenie velaemoj komandy.":
   1 +"wypolnenie  komand,   naprimer,"+
   1 +"wtorom slu~ae-dlq wwoda s diska"+
   1 +"wo wtoroj programme wytesnq`tsq"+
   1 +"wesx ukazatelx sprawo~nika.":
   1 +"waetsq dlq wywoda na disk, a wo"+
   1 +"w q~ejki A$.":
   1 +"w \WM.":
   1 +"vimogo q~eek.":
   1 +"veniq.":
   1 +"ve q~ejku.":
   1 +"trubke.":
   1 +"tor s metkoj 7.":
   1 +"teriala.":
   1 +"telx diskety.":
   1 +"t.e. k nul`.":
   1 +"sprawo~nika.":
   1 +"simwolow.":
   1 +"simwolow'.":
   1 +"simwolow w odnu cepo~ku  (stro-"+
   1 +"rudnikow otdela.":
   1 +"ratory.":
   1 +"rabotu.":
   1 +"qsx posledu`}im zna~eniem, raw-"+
   1 +"programm.":
   1 +"priswaiwaniq i  997 operatorow"+
   1 +"primer, dlq perehoda na nee.":
   1 +"pe~ati.":
   1 +"otwedena 1 q~ejka.":
   1 +"odnim imenem peremennoj.":
   1 +"ob'em obolo~ki.":
   1 +"nym 0.":
   1 +"nuvnyj tekst.":
   1 +"nuvno zarezerwirowatx 4 q~ejki.":
   1 +"niq w tretx` stepenx.":
   1 +"niq w simwolxnoe predstawlenie.":
   1 +"nii funkcii.":
   1 +"nie wsej programmy sna~ala.":
   1 +"ne zapi{etsq.":
   1 +"na klawiature nuvnye cyfry.":
   1 +"mnogo takih boksow.":
   1 +"meste programmy  i  perejti  na"+
   1 +"libo ovidanie komand.":
   1 +"ku simwolow).":
   1 +"ke) najti nuvnu`  komandu,  na-"+
   1 +"ka simwolow'.":
   1 +"imen argumentow pri ispolxzowa-"+
   1 +"gruppy operatorow.":
   1 +"funkcii.":
   1 +"etsq na 1 i otprawlqetsq w  |tu"+
   1 +"estx uweli~iwaet H na 1.":
   1 +"ego ocenok.":
   1 +"dwa operatora pe~ati.":
   1 +"drug drugom.":
   1 +"dowatelxnostx komand  w  nuvnom"+
   1 +"dobawilasx edinica.":
   1 +"dlq  mnogokratnogo   powtoreniq"+
   1 +"dit programmist s klawiatury.":
   1 +"direktorii).":
   1 +"awtomobilq,  a  kooperatiwnom -"+
   1 +"W\#"S\"K\6
   1 +"WTORNIK":
   1 +"Sergeewa' i ego  priznak-nomer"+
   1 +"PQTNICA":
   1 +"Nomer 5- koncu distancii.":
   1 +"Nomer 3- {agu."+
   1 +"MX1:PROBA.BAS"+
   1 +"LUNA.COM"+
   1 +"LIZA.COM"+
   1 +"LISA.BAS":
   1 +"K=1 do 20 s {agom 1.":
   1 +"I \WM.":
   1 +"DEJSTWIJ."
   1 +"DEJSTWIE."
   1 +"8-->5 stalo 8.":
   1 +"5 i 6.":
   1 +"3 DIM D(10)":
   1 +"3  q~ejke  K  priswaiwaetsq  0,"+
   1 +"1985 goda.":
   1 +"134255":
   1 +"(metkoj) 3." 
   1 +" - "+w$(q):
   1 + Del file
   1 + (slovenie),  - (wy~itanie),   * (umnovenie), / (delenie).  
   1 *R*R*R/3":
   1 *R*R*R/3 ","DEF FN S(R)=4*PI*R*R*R/3","EN"
   1 *R*R *R/3-Q*4*
   1 *R*R ","DEF FN K(R)=PI*R*R ","EN"
   1 *R ","DEF FN L(R)=2*PI*R ","EN"
   1 *I20.FAV B
   1 ***************
   1 *(R-D)*(R-D)*(R-D)/3":
   1 *(R*R*R-(R-D)*(R-D)*(R-D))/3":
   1 )=h$(a)+"  Sektor : "+
   1 );W$(R,Q):
   1 );" w ";z$(a,4
   1 );" Sektor:";z$(a,18
   1 );" ";V$(N)
   1 )88))88)888888888888888888888888)88))88)888888888888888888888888((((((((((((((((((((((((((((((((()))))))))))))))))))))))))))))))()))))))))))))))))))))))))))))))()))))))))))))))))))))))))))))))((((((((((((((((((((((((((((((((
   1 )-C(cur2,2
   1 ),Y(cur1,1
   1 )+" MASTER  SOFT":
   1 ))/(tn^1.5
   1 (x/co)*co))
   1 (wozwedenie w stepenx)"
   1 (weig-sum)<0.5
   1 (q-r-l)<0.5
   1 (metkoj) 3.
   1 (j1/12)+1":
   1 (j/100)+1))"
   1 (ce/o)-h*ce+
   1 (a/co)*co))
   1 (S)=2*PI*R* B
   1 (0572) 98-81-35 Maxim
   1 (.4*m+2.3)+
   1 ((j-1)/4)-
   1 ((j-1)/100)+1))"
   1 ((a+s)/360
   1 (((z(a)-z(11
   1 (((ol+ul)/m)/co))*co
   1 'upr.perem.'='na~.zna~.";:
   1 'I19.FAV B7
   1 '''''''" 1. Grafik na mesyc"''" 2. Situaciy na dann{
   1 ''''"Imy:",:
   1 ''"Data:",:
   1 ''"Data rojdeniy:",:
   1 ''"3- zikly podprogrammy perexody"''"4- Operatory 
   1 '     zdesx 'na~.zna~.','predel','{ag prira}eniq'- estx wyraveniq,    prinima`}ie ~islowoe zna~enie."
   1 %I18.FAV B
   1 $$$$$$$$$$$$$$$
   1 $!*t*t+f)*15
   1 #"a\"c\"e\>82
   1 "~toby ~elowek uspel nabratx  na"
   1 "~toby snowa wkl`~itx skrolling?"
   1 "~toby nape~atatx tysq~u  zna~e-"
   1 "~toby nape~atalisx ~isla  ot  11"
   1 "~toby iz  q~ejki  H  nape~atatx"
   1 "~toby  prog-"
   1 "~toby  obespe~itx  mnogokratnoe"
   1 "~toby  iz-"
   1 "~toby   nape-"
   1 "~toby    nape-"
   1 "~to |tot  format  na samom dele"
   1 "~to nape~ataet prog-"
   1 "~to  skopirowali   operacionnu`"
   1 "~to  ozna~alo"
   1 "~teniq, esli Wy dadite  komandu"
   1 "~islqlisx  i  pe~atalisx tolxko"
   1 "~islom 145 ?"
   1 "~islo 5 w q~ejku 'H',  a soder-"
   1 "~islo 4 ?"
   1 "~islo 1 ?"
   1 "~islennoe wyravenie  posylaetsq"
   1 "~isla, kratnye 3, t.e. 3,6,9..?"
   1 "~isla programma ";:
   1 "~isla budut nape~atany?"
   1 "~ili prigla{enie $. ^to Wy wwo-"
   1 "~estwo detej u dannogo  sotrud-"
   1 "~eniq A i W.":
   1 "~eniem H, rawnym 1 ?"
   1 "~emu rawny A i W ?"
   1 "~e projdite w auditori` 6.' Ku-"
   1 "~atx razmetku?"
   1 "~atatx pqtx zna~enij iz  q~ejki"
   1 "~atalsq simwol 6 ?"
   1 "~atalosx  zna~enie   ";:
   1 "~atala 8 ~isel?  Kak  on  budet"
   1 "~ataet imenno 25 ?"
   1 "~ataet WESNA. ^to w |toj  prog-"
   1 "~ata`tsq w \toj programme?"
   1 "~asto  risuet  odno i tove izo-"
   1 "~ani` 16 strok)."
   1 "~alo na{ej programmy imeet sle-"
   1 "}u` programmu. Kakie  operatory"
   1 "}u`  beskone~nyj  rqd  ~isel po"
   1 "}aq 100 operatorow cikla, sli{-"
   1 "|tom skopirowatxsq na disketu w"
   1 "|toj programme?"
   1 "|toj diskete?"
   1 "|toj  ve  diskete  fajl  dannyh"
   1 "|tih tetradej  bolee udobna dlq"
   1 "|tih dwuh programm  Wy  obnaru-"
   1 "|ti predloveniq."
   1 "|taoperaciq imeet wys{ij urowenx   star{instwa sredi logi~eskih operacij.":
   1 "|ta   stroka kopiruetsq w nivn`` ~astx|krana,gde w nee movno wnositx  izmeneniq(redaktirowatx)."
   1 "|lement ";:
   1 "|kwiwalenten odin kooperatiwnyj"
   1 "|krannogo redaktora  posle  is-"
   1 "| WORD    | EOL     | CUT     |"
   1 "| PAGE    | FINDNEXT| DELWORD |"
   1 "| OPENLINE          | RESET   |"
   1 "| GOLD    | HELP    | DELLINE |"
   1 "| COMMAND | FIND    |UNDELWORD|"
   1 "| CHANCASE| DELEOL  | PASTE   |"
   1 "| BOTTOM  | TOP     |UNDELCHAR|"
   1 "| BLINE             | SELECT  |"
   1 "| APPEND  |         | SPECINS |"
   1 "| ADVANCE | BACKUP  | DELCHAR |"
   1 "|  Manager_________________1  |"
   1 "|  Hotels_________________13  |"
   1 "|  Commercial Department___3  |"
   1 "|  Chief Engineer__________2  |"
   1 "|  Apotheka________________5  |"
   1 "|  Airports________________7  |"
   1 "|       7 |       8 |       9 |"
   1 "|       4 |       5 |       6 |"
   1 "|       1 |       2 |       3 |"
   1 "|         | SECTION |         |"
   1 "|         | REPLACE | ENTER   |"
   1 "|         |         |UNDELLINE|"
   1 "|         |         |SUBSTITUT|"
   1 "|                 0 |       , |"
   1 "{el  ne  iz  operatora  5, a iz"
   1 "{aga 2 metra? 3 metra?"
   1 "zywaet na na~alo  teksta,  naj-"
   1 "zwonitx, ~to on delaet?"
   1 "zu po-russki i postawxte  ee  w"
   1 "zowatx komandy ";:
   1 "zna~enij H,   kotorye wy~isleny"
   1 "zna~ek '$'.   Dalee wnimatelxno"
   1 "zitx smysl |lementa * w komande":
   1 "zitx iz MH1:. Wykl`~ili i wnowx"
   1 "zawisit, skolxko ~isel i  kakie"
   1 "zawer{eniq razmetki wernutxsq w"
   1 "zatem e}e 1 rublx. Skolxko sta-"
   1 "zatem   klawi{u S"
   1 "zatem   klawi{u S wmeste s klawi{ej":
   1 "zatelem sekcii.":
   1 "zaprosu \WM wwesti dwojku?"
   1 "zapisx  segmenta redaktirowaniq"
   1 "zapisi kulinarnyh receptow?"
   1 "zapisej na diske. Skolxko zapi-"
   1 "zapisany  na  bumage.   Kak  ih"
   1 "zamenqet odin operator  ";:
   1 "zamenqet massiw ";:
   1 "zakrytie  wspomogatelxnogo  wy-"
   1 "zakon~itsq rabota programmy ";:
   1 "zagruzki?"
   1 "zagruzka - WOOT)."
   1 "zagruvena.   Kakie dwa osnownyh"
   1 "za kavdoj iz |tih komand sleduetkl`~ewoe slowo-imq programmy,   opredelennoe perwona~alxno w    komande";:
   1 "wy~islqetsq wes razli~nyh  sfe-"
   1 "wy~islqet i"
   1 "wy~isleniq?":
   1 "wy~isleniq:":
   1 "wy~er~i-waet okruvnostx radiusa";:
   1 "wyzywaet"
   1 "wyzywaet poqwlenie znaka,w protiwnom slu~ae oni da`t simwoly,uprawlq`}ie cwetom." 
   1 "wyswe~iwaetsq soob}enie ob  ob-"
   1 "wyraveniq net nikakih razdelitelej, to perwoe wstretiw{eesq";:
   1 "wyravenie,zna~enie kotorogo wywoditsq w operatore";:
   1 "wypolnqtxsq  posle   ~etwertogo"
   1 "wypolnqtx...":
   1 "wypolnqq operator s metkoj 5 ?"
   1 "wypolnqetsq 100 raz,no kavdyj raz s drugim zna~eniem peremennoj";:
   1 "wypolnqet  razmetku"
   1 "wypolnitsq,  esli w"
   1 "wypolnitsq bolx{e operatorow?"
   1 "wypolneno,   esli  budet  imetx"
   1 "wypolneniq konandy ";:
   1 "wypolnenie operatorow s metkami"
   1 "wyp","pusk","na~","rab","WYP","PUSK","NA^","RAB","EN"
   1 "wyhod","uhod","pokid","POKID","WYHOD","UHODIT","EN":
   1 "wyglqdetx?"
   1 "wybrosiw predlog i"
   1 "wyborke na |krane i qwlq`tsq li"
   1 "wwoda zapisany uve na  Bejsike."
   1 "wwod","WWOD","EN"
   1 "wwesti  w  \WM  dlq  rabota`}ej"
   1 "wwesti  imq  kartoteki.   Dalee"
   1 "wwedite |to slowo."
   1 "wwedena komanda:":
   1 "wwedena komanda":
   1 "wwedem w q~ejku K dwojku?"
   1 "wu` distanci` po begowoj dorov-"
   1 "wtorq`tsq w programme ";:
   1 "wtoroj  ";:
   1 "wspomogatelxnyj fajl."
   1 "wseh otkrytyh fajlow neobhodimo"
   1 "wsego zna~enij weli~iny K ?"
   1 "wsegda","WSEGDA","HOTX KOGDA","L@BOJ MOMENT","KOGDA UGUDNO","EN"
   1 "wse","WSE","EN"
   1 "wprawo - 
   1 "wplotx do predydu}ego ograni~i-"
   1 "wozwra}aet dlinu zadannogo w nejstrokowogo argumenta: wwedite ";:
   1 "wozwra}aet   obrabotku"
   1 "wozwrat","         prawilxno !!!          ","          newerno ...           "
   1 "wos","8 ","WOSEMX","EN":
   1 "wom revime.  Redaktor  K52  pri"
   1 "woda'. ^to nuvno otwetitx?"
   1 "wod na anglijskij qzyk  glagola"
   1 "wnutri ee opisaniq funkci` ";:
   1 "wmesto mnogoto~ij w |toj  prog-"
   1 "wkl`~ili pitanie i pulxt i  po-"
   1 "wkl`~ena, operacionnaq  sistema"
   1 "wi{u <";:
   1 "witx, postawitx posle operatora ":
   1 "witx k poslednej programme ";:
   1 "witx  k  predydu}ej  programme,"
   1 "witx   k   poslednemu  wariantu"
   1 "witsq  i  wydast  soob}enie  ob"
   1 "wii so strokoj, qwlq`}eysq uka-"
   1 "widite smysl ukazaniq (4 TO 6)"
   1 "wesa obolo~ki?"
   1 "werhnosti obolo~ki.  ^emu rawen"
   1 "wenstwo H=H+1 ?"
   1 "watx    fajl    ";:
   1 "warianty otwetow:":
   1 "wano ranx{e poqwleniq operatora":
   1 "wannu` (razme~ennu`) i  inicia-":
   1 "wal perehod na operator 3 tolx-"
   1 "waetsq fajlom.   No po  nomeram"
   1 "waet wywod na |kran.":
   1 "w*10+350":
   1 "w |tu programmu, ~toby"
   1 "w |tom revime navatie daet odin simwol ili znak, esli revim sohranqetsq,i drugoj,esli odnowremenno navata odna iz klawi{ smeny revima. odnowremennoe  navatie cifrowyh klawi{ s klawi{ej smeny revima ";:
   1 "w wyhodnoj wspomogatelxnyj fajl":
   1 "w werhnem, lewom uglu.":
   1 "w revime";:
   1 "w q~ejku"
   1 "w q~ejku K.":
   1 "w q~ejku K wwesti dwojku?"
   1 "w q~ejke S$"
   1 "w programme, a wwodqtsq w ma{i-"
   1 "w programme  kotoraq,  numeruet"
   1 "w predelah  zadannogo  segmenta"
   1 "w perwom i wo wtorom slu~ae?"
   1 "w otwet na wopros NOMER MESQCA?"
   1 "w otwet na prigla{enie  '$' imq"
   1 "w opredelennyh sostoqniqh klawi {i ";:
   1 "w opisanii ";:
   1 "w operatore";:
   1 "w operatore 4 ?"
   1 "w operatorah";:
   1 "w operatorah 4 i 5 ?"
   1 "w nivn`` ~astx |krana wywodqtsq takve soob}eniq ob o{ibkah, kotorye sohranq`tsq tam do navatiq  l`boj iz klawi{."
   1 "w nem begaet belka?"
   1 "w kompx`tere    ";:
   1 "w komandnyj revim wo wremq  na-"
   1 "w kavdoj {erenge?"
   1 "w  skobkah  posle ";:
   1 "w  rezulxtate  raboty programmy"
   1 "w  programme  ";:
   1 "w  operato-":
   1 "w    programme    ";:
   1 "vitx wypolnenie programmy."
   1 "vitx dlq wy~isleniq wesa l`bogo"
   1 "vimogo |krana posle ispolxzowa-"
   1 "vimogo |krana (esli ispolxzowa-"
   1 "vimoe q~ejki bylo rawno 0,  ka-"
   1 "vili?    (Nazowite   operatory,"
   1 "ven navatx specialxnu`  klawi{u"
   1 "ve programmy?"
   1 "ve diskete MH1 posle wypolneniq"
   1 "vatxsq w q~ejkah pamqti,  imena"
   1 "vanie   fajla    ";:
   1 "va`}u` smysl 'wydatx  na  tele-"
   1 "u~ebnika po qzyku Bejsik i  ot-"
   1 "u~","U^EBN","U^EN","EN"
   1 "uznatx, kakie fajly ime`tsq  na"
   1 "ustrojstwo  s   ispolxzowaniem "
   1 "uroke, imeet u~ebnyj  harakter."
   1 "uni~t","ster","stir","sotr","SOTR","STIR","zamen","ZAMEN","ZAME]","zame}","STER","UNI^TOV","UDAL","PROPA","EN"
   1 "united-states ","UNITED-STATES ","EN"
   1 "umol~ani` qwlqetsq simwol <";:
   1 "ukazatx nomer stroki,s koto-roj budet wypolnqtsq programma."
   1 "ukazatelx:":
   1 "ukazatelem stranicy (po umol~a-"
   1 "ukazatele ne raspe~atalasx, ho-"
   1 "udelxnyj wes materiala.":
   1 "udalenie  teksta do"
   1 "udalenie  teksta  do"
   1 "udalenie   teku}ego"
   1 "udalenie    teksta    do"
   1 "udalenie    predydu}ego"
   1 "udalenie     stroki"
   1 "type mx0:rodin.txt ","TYPE MX0:RODIN.TXT ","EN"
   1 "type ","TYPE ","EN"
   1 "ty programm ";:
   1 "ty podprogrammy pri H=3 ?"
   1 "ty ne gruzitsq! Mogla li by za-"
   1 "ty   podprogrammy    ";:
   1 "turisti~eskom sprawo~nike:":
   1 "turalxnogo rqda programmist so-"
   1 "tu \toj programmy?"
   1 "tron ","TRON ","EN"
   1 "tri zna~eniq: 0 1 2 ?":
   1 "tri q~eiki ?"
   1 "tri ","TRI ","3 ","EN"
   1 "tretij operator?"
   1 "tr","3 ","TRI ","EN"
   1 "tq  na  samom  dele  ona estx i"
   1 "to~ku wozwrata?"
   1 "to~ku  wozwrata,   esli"
   1 "towkoj dlq oglawleniq. Kakaq iz"
   1 "towki operacionnoj  sistemy  na"
   1 "tow. Kakoj  |lement  obozna~aet"
   1 "tory  s  metkami  3, 4, 5, 6, -"
   1 "toru bystro korrektirowatx swoi"
   1 "torq`tsq 20 raz?"
   1 "torq`tsq  cikli~eski   w   |tih"
   1 "tora: H=H+1 ?"
   1 "tora      ";:
   1 "tor s nomerom (metkoj) 5 ?"
   1 "tor izobraven  zelenym  cwetom,"
   1 "tor daet prikaz zakon~itx rabo-":
   1 "tol}ina obolo~ki,":
   1 "tolxko ~etnye ~isla?"
   1 "tolxko ne o~i}aet  ws` pamqtx,a li{x zamenqet te stroki programmy ili peremennye,u kotoryh sowpada`t nomera ili  imena s takimi ve na magnitnoj  lente.":
   1 "togda navmite na klawi{u ";:
   1 "to woprositelxnyh znakow?"
   1 "to wmesto programmy ";:
   1 "to teku}aq stroka perenositsq w nivn`` ~astx |krana , gde ona movet redaktirowatxsq.":
   1 "tiwnogo garava w gorode?"
   1 "tiq klawi{ ";:
   1 "temu iz MH0: i hotite razmetitx"
   1 "temnogo ustrojstwa."
   1 "telxnogo whodnogo fajla.":
   1 "telq stroki i  sohranenie  uda-"
   1 "teletajp","TELETAJP","EN"
   1 "telega","ulitka","fonarx","hleb","cwetok","~ajnik","{ar","}it","%","y","x","|kskawator","`la","qbloko"
   1 "tela  iz odnorodnogo materiala?"
   1 "tekstowyj tip.":
   1 "tekstowyj   fajl  i":
   1 "teksta ~itaemogo fajla  po  |k-"
   1 "te MH0, esli posle |togo wypol-"
   1 "taty ras~etow?"
   1 "tami,  a drugu` s pronumerowan-"
   1 "talsq sledu`}ij ukazatelx  (og-"
   1 "taki rezulxtat proizwedeniq"
   1 "taki budet imetx fajl ";:
   1 "taet w |toj programme?"
   1 "taet programma ";:
   1 "taet \ta programma?"
   1 "taet  programma  ";:
   1 "ta wesa sferi~eskoj obolo~ki:":
   1 "t.e. te, kotorye nahodqtsq mev-"
   1 "system","SYSTEM","EN"
   1 "swoej rabote zanimaet operatiw-"
   1 "swe~iwaetsq ta ~astx fajla, gde"
   1 "summu     tretxej"
   1 "summe wosxmi ~isel 1+2+3+..+8 ?"
   1 "stwu`}aq klawi{a podkra{iwaetsq":
   1 "stwii  so  strokoj,  qwlq`}ejsq"
   1 "studentu ni~ego ne goworqt.  Po"
   1 "stroke 2 ?"
   1 "stroka programmy, ~toby priswo-"
   1 "strok  w  pokazannom  fragmente"
   1 "stranicy.  Na~alom stranicy  po"
   1 "stranic, na kotoryh bylo oglaw-"
   1 "sto","100 ","STO ","EN"
   1 "ster","uni~t","propa","udal","STERT","UNI^TOV","PROPA","UDAL","EN":
   1 "stawlqet programmu iz dwuh  ty-"
   1 "stargazer"
   1 "sq~ operatorow, to takogo prog-"
   1 "sq posle operatora 8 pri H=5 ?"
   1 "sq ispolxzowatx  sledu`}ie  ko-"
   1 "sq dostupnymi dlq wnimatelxnogo"
   1 "sprawo~nike  swedenij o woennyh"
   1 "sprawa ot znaka =,  a zatem wy-"
   1 "sportsmena, kakoj  ego  {agu  i"
   1 "spiski abiturientow,  za~islen-"
   1 "sostoqniq   harakterizu`t    ee"
   1 "sostoit   iz"
   1 "sootwetswu`}u` komandu.":
   1 "sootwetstwenno. esli wwedeno    ";:
   1 "soldata?"
   1 "sohranenie ego w bufere stroki.":
   1 "soglasno  zame~ennoj zakonomer-"
   1 "sodervittolxko parametry wywoda,a opera-tor";:
   1 "sodervit odnu ili neskolxko konstant,razdelennyh zapqtymi."
   1 "sodervimoe pustoj q~ejki H pos-"
   1 "sobstwenno imq fajla?"
   1 "sobesedowanie w kabinet 5, ina-"
   1 "snqli  wse,   krome   poslednih"
   1 "snowa zapisywaet '0' w q~ejku H"
   1 "smysl |lementa % w komande":
   1 "slowo:  PETRO"
   1 "slowo.  Pri pomo}i navatiq kom-":
   1 "slowo MARIQ. ^to sdelal  opera-"
   1 "slowo '~asy'."
   1 "slowo 'sistema'?"
   1 "slowo ";:
   1 "slowo  iz  bloka  ";:
   1 "slowa ";:
   1 "sleduet  rabotatx  po  ukazani`"
   1 "sledu`}imi fajlami:":
   1 "sledu`}ie fajly:":
   1 "sledu`}ego ograni~itelq stroki,"
   1 "sledu`}ee men`:":
   1 "sledite za soob}eniqmi \WM."
   1 "sled","drugoj","SLED","DRUGOJ","EN":
   1 "skolxko na diskete MH0 programm"
   1 "skobkah ukazana  neobqzatelxnaq"
   1 "skazatx,"
   1 "sistemu. Podwedem itog: kakie 4"
   1 "sistemu komandoj ";:
   1 "sistemu  komandu   ";:
   1 "sistemoj. Wy wweli komandu:":
   1 "sistema nahoditsq  na  diske  w"
   1 "sistema ee ispolxzuet (naprimer"
   1 "simwoly odinakowy ","SIMWOLY ODINAKOWY ","EN"
   1 "simwoly ne odinakowy ","SIMWOLY NE ODINAKOWY ","EN"
   1 "simwol pered kursorom movet bytx udalen komandoj ":
   1 "simwol '*'."
   1 "signaliziruet o sostoqnii  ovi-"
   1 "sformiruet iz ~astej  A$  i  W$"
   1 "selxskogo  vitelq  ot  koopera-"
   1 "sel budet pe~atatx |ta program-"
   1 "sekcii. Zna~eniem po  umol~ani`"
   1 "sej wywodit  na  disk sledu`}ij"
   1 "segmenta redaktirowaniq.":
   1 "sboq displeq.":
   1 "sama na sebq w operatore 11 ?"
   1 "s prowerkoj. ^to sdelaet  prog-"
   1 "s ograni~itelem stroki.":
   1 "s neobhodimoj programmoj?":
   1 "s metkoj 5 ~toby programma  pe-"
   1 "s kakimi  metkami  ne budut wy-"
   1 "s imenami MH0: i MH1:. Na kakom"
   1 "s ","S ","EN"
   1 "s   diskety   MH1  na"
   1 "russkom qzyke?"
   1 "russkom  qzyke   sformulirowatx"
   1 "rudnikah na dolgoe wremq?"
   1 "ru`tsq zadannymi ~islami."
   1 "ru`  sna~ala  polovim  1 rublx,"
   1 "rowaniq."
   1 "rowaniq operacionnoj sistemy iz"
   1 "row ","ROW ","EN"
   1 "row  uslownogo  i  bezuslownogo"
   1 "rodin.txt ","RODIN.TXT ","CO","elsa.txt ","ELSA.TXT ","EN"
   1 "robin.dat ","ROBIN.DAT ","EN"
   1 "robert.com ","ROBERT.COM ","CO","scoons.com ","SCOONS.COM ","EN"
   1 "ri~eskih obolo~ek?"
   1 "rex1.bas","REX1.BAS ","EN"
   1 "rex1.bas ","REX1.BAS ","EN"
   1 "rex.bas ","REX.BAS ","EN"
   1 "revim kursora";:
   1 "revim ";:
   1 "reteniq  i  zakrepleniq nawykow"
   1 "rename ","RENAME ","EN"
   1 "ren mx0:rex1mbas mx0:rex2.bas ","REN MX0:REX1.BAS MX0:REX2.BAS ","EN"
   1 "redx.  Kogda  ~elowek  zakon~il"
   1 "redaktor wypolnqet komandy  ili"
   1 "redaktirowaniq.":
   1 "raznica  mevdu  nomerami  metok"
   1 "razme}atx  fajl  ";:
   1 "razmetka","format","RAZMETKA","FORMATI","EN"
   1 "razmetka s prowerkoj"
   1 "razdeli-telqmi.esli posle wyraveniq sto-it to~ka s zapqtoj,to sledu`}ee";:
   1 "rawen H posle wypolneniq opera-"
   1 "ratorah  4  i  5  w   programme"
   1 "rator 5, ~toby on  programmiro-"
   1 "rator  s  metkoj  4  (napomnim:"
   1 "rator   'soob}aet'    operatoru":
   1 "ras~ety. Printer okazalsq neis-"
   1 "raspe~a-"
   1 "ranx{e,  ~em  Wy ee zapi{ite na"
   1 "ranu) movno  ostanowitx,  navaw"
   1 "rannogo redaktora K52.         "
   1 "raneniq.":
   1 "ranenie ego w konce bufera soh-"
   1 "ranenie ego  w  bufere  (razmer"
   1 "rana posle ispolxzowaniq  funk-"
   1 "ran programma ";:
   1 "rammy, kotorye organizu`t cikl,"
   1 "rammy sotwetstwuet na~alu  bega"
   1 "rammu wmeste i wypolnim |tu ob-"
   1 "rammoj razmetki ";:
   1 "rammista  ni  odin rukowoditelx"
   1 "ramme? Haoti~no?"
   1 "ramme, ~toby operatory  3  i  4"
   1 "ramme delaet operator ";:
   1 "ramma A1 i skolxko W1 ?"
   1 "ramma A i skolxko programma W ?"
   1 "ramma    ";:
   1 "raet na scene?"
   1 "radiusom A.   Wy~islim  plo}adx"
   1 "radius sfery, obrazu`}ij"
   1 "raboty s redaktorom tekstow."
   1 "rabotaet,dave esli blok ne pust.":
   1 "r","R ","EN"
   1 "q~ejki K% ?"
   1 "q~ejki 'H'?"
   1 "q~ejke W$ ?"
   1 "q~ejke S$ w operatore  6  prog-"
   1 "q~ejke M w operatore 5 ?"
   1 "q~ejke H ~islo 8?"
   1 "q~ejke ";:
   1 "q~ejke  K  w  operatore  7 |toj"
   1 "q~ejkam  K  i  ";:
   1 "q~ejkah pamqti ";:
   1 "q~eek ";:
   1 "qwlqetsq 16 strok."
   1 "qwlqetsq    operatorom"
   1 "qwitxsq bukwa 'S', posle  |togo"
   1 "pustx  |ta  funkciq  imeet  imq":
   1 "punkte glawnogo men`.":
   1 "pro~itatx sozdannyj  Alekseewym"
   1 "prowerqet programmu i peremennyew pamqti kompx`tera po ih kopii na lente."
   1 "prosmotr fajla       ":
   1 "proizwodit wy~islenie K ?"
   1 "proizwedenie 1*2*3*4 ?"
   1 "prohod' w programme ";:
   1 "programmy movno na~atx s l`boj  stroki.naprimer,";:
   1 "programmy 'WOWA'?"
   1 "programmy  ";:
   1 "programmu:":
   1 "programmu 2RQDA:":
   1 "programmist  zakazywaet"
   1 "programmirowanii?"
   1 "programme ?"
   1 "programme 'SWETA'?"
   1 "programme  'WOWA'  i  skolxko w"
   1 "programme  ";:
   1 "programmami na Bejsike i Paska-"
   1 "programmah?"
   1 "programma":
   1 "programma ?"
   1 "programm?"
   1 "programm:":
   1 "proba ","2 ","PROBA ","EN"
   1 "priwodit k velaemomu rezulxtatu."
   1 "priwode MH0:, i Wy hotite  sko-"
   1 "priwode MH0: disketa s operaci-"
   1 "priwoda MT0 ?"
   1 "priwet","maly{","*","*","ty","mne","pakavyka","slowa":
   1 "printer","PRINTER ","EN":
   1 "print mx0:rodin.txt ","PRINT MX0:RODIN.TXT ","EN"
   1 "print mx0:rita.bas ","PRINT MX0:RITA.BAS ","EN"
   1 "primernyj wid kotorogo sledu`}ij":
   1 "primer,  fajla ";:
   1 "primenqetsq operator ";:
   1 "prika","ukaz","PRIKA","UKAZ","EN":
   1 "prigla{enie:'Ukavite nomer pri-"
   1 "priboru stalo wozmovno sozdanie"
   1 "pri wwode edinicy?"
   1 "pri navatii ";:
   1 "pri dline {aga 2 m, esli na~net"
   1 "pri K%=4 ?"
   1 "pri H=5 ?"
   1 "pri H=2 ?"
   1 "pri    normalxnom"
   1 "prevde  ~em  kopirowatx  na nee"
   1 "preobrazuet ~islo w simwolxnyj wid:";:
   1 "preobrazuet drob- noe ~islo k celomu otbrasywaniemdrobnoj ~asti: ";:
   1 "preobrazuet argu- ment w polovitelxnoe ~islo:  ";:
   1 "prejskuranta (DWK):":
   1 "predydu}ej stroki i  sohranenie"
   1 "predydu}ego slowa.":
   1 "prednazna~en dlq raboty w fono-"
   1 "predlagaet   men`,"
   1 "prawnym. Kak sohranitx  rezulx-"
   1 "pqt","5 ","PQTX","EN":
   1 "pqt","5 ","PQT","EN"
   1 "pozwolqet wosstanowitx blok  dannyh,p0sle ego wypolneniq wyborkana~inaetsq s perwogo ~isla w bloke dannyh.operator ";:
   1 "pozici` w lewyj werhnij ugol |k-rana.":
   1 "powtorqlisx  mnogokratno,   kak"
   1 "powtorno.":
   1 "powtor","perej","pereda","POWTOR","PEREJ","PEREDA","EN"
   1 "postrojte   po-"
   1 "postoqnnyj?"
   1 "postoqnna?"
   1 "posledowatelxnostx wypolneniq   operatorow programmy ne wsegda  predskazuema.w nekotoryh mestah    programmy kompx`ter movet prinimatx re{eniq o dalxnej{em hodewy~islenij.operator,wypolnq`}ij |to imeet formu:"
   1 "posledowatelxnostx simwolow,na-"
   1 "posled","o~ered","grupp","POSLED","O^ERED","GRUPP","CO","komand","operat","KOMAND","OPERAT","EN":
   1 "posle |togo na |krane poq witsq rezulxtat.esli wwesti ";:
   1 "posle wypolneniq operatora 16 ?"
   1 "posle  razmetki,"
   1 "posle   operatora      ";:
   1 "poslatx ~islo 8, to kakoe ~islo"
   1 "porqdku:":
   1 "porqd","posled","PORQD","POSLED","EN":
   1 "ponedelxnik","PONEDELXNIK ","EN"
   1 "polxzuq slowarx: 'idi k podpro-"
   1 "polxzuetsq kombinaciq  operato-"
   1 "polxzowatx funkci` <SU/";:
   1 "polxzowaniq <SU/";:
   1 "polxzowanii    funkcii   <";:
   1 "polu~im programmu ";:
   1 "polnqq  operator  s  metkoj  2,"
   1 "polnostx` o~i}aet pamqtx kompx`tera t.e. stiraet  wse programmy.":
   1 "polneny?"
   1 "pojas2 ","POJAS2 ","EN"
   1 "podkra{iwaniq)."
   1 "podkl`~ennom magnitofone wwesti"
   1 "po-anglijski?"
   1 "po sledu`}emu operatoru:":
   1 "po odnomu rubl`?"
   1 "po obozna~eni` peremen-noj nelxzq opredelitx ee zna~e- nie.ono movet neodnokratno izme-nqtxsq wo wremq wypolneniq prog-rammy."
   1 "plo}adi kruga         - ";:
   1 "plee wyswe~iwaetsq klawiaturnaq"
   1 "pisx, ne otkrywaq ego?"
   1 "piruet wse fajly, krome sistem-"
   1 "pirowatx  ee na otformatirowan-"
   1 "pirowannyj na disketu MH0: fajl"
   1 "pirowaniq?"
   1 "pe~itx   pe~atx    rqda   ~isel"
   1 "pe~atx teksta":
   1 "pe~atala  takie  ~etyre  ~isla:"
   1 "pe~ataet ~islo"
   1 "pe~ataet programma?"
   1 "pe~ataet  20  zna~enij  massiwa"
   1 "petrowa ","PETROWA ","EN"
   1 "perwogo simwola sledu`}ego slo-"
   1 "perwogo  simwola  teku}ego  ili"
   1 "perehodow?"
   1 "perehod","pereda","PEREHOD","PEREDA","IDET","EN"
   1 "perehod","pereda","PEREHOD","PEREDA","EN"
   1 "perehod na operator 10  proizo-"
   1 "perehod k  wypolneni`  tretxego"
   1 "parowoz ","PAROWOZ ","EN"
   1 "pamqti zanimaet odno ~islo?"
   1 "pamqti H:":
   1 "pamqt","zapom","PAMQT","ZAPOM","EN":
   1 "paketa, s u~etom razmerow prog-"
   1 "o~i}aet pamqtx kompx`tera ot    wseh programm i zagruvaet w nee nowye,s~itannye s magnitofona.":
   1 "o{ibke, esli proizo{el  perehod"
   1 "ovidan","OVIDAN","EN"
   1 "otwetstwuet situaciq ";:
   1 "otwet na |tot ve wopros  wwesti"
   1 "otsutstwuet,to weli~ina {aga prira}eniq      rawna 1.":
   1 "otsutstwuet numeraciq  sektorow"
   1 "otpuskaq ee navmite na  '2'.  W"
   1 "otmenqet gra-"
   1 "otmena teksta do konca"
   1 "otmena otkrytogo  wspomogatelx-"
   1 "otkrytie wspomogatelxnogo whod-":
   1 "otkrytie  wspomogatelxnogo  wy-"
   1 "ostawiw ot slow  maksimum  po 3"
   1 "ostanowilsq kursor.":
   1 "ostanawliwaq kompx`ter s wyda~ej soob}enij.":
   1 "opredelqet i priswaiwaet q~ejke":
   1 "opredelqet  massiw s imenem w-razmernostx` 5":
   1 "opredelqet    cwet bord`ra."
   1 "opredelenie stranic kak  zadan-"
   1 "opredelenie sekcii  kak  zadan-"
   1 "opredelenie  sekcii  w sootwet-"
   1 "operatory"
   1 "operatory programmy:":
   1 "operatory 5 i 6 budut propu}eny"
   1 "operatoru"
   1 "operatoru s metkoj 3 ?"
   1 "operatorow w programme:":
   1 "operatorow 2 i 3, ~toby  zna~e-"
   1 "operatorom ";:
   1 "operatore cikla programmy ";:
   1 "operatore  3  nahoditsq  staroe"
   1 "operatora, esli wtoroj operator"
   1 "operatora 8 ?"
   1 "operatora ";:
   1 "operatora   2,   nazna~im  imena"
   1 "operator?"
   1 "operator 3 uweli~iwaet H  na 1,"
   1 "operator 3 ). Kak izmenitx ope-"
   1 "operator 'WWOD K' ?"
   1 "operatiwnoj pamqti \WM w moment"
   1 "operacionnyh sistem?"
   1 "operacionnyh sistem |ti osoben-"
   1 "operacionnoj sistemy?":
   1 "onnoj sistemy?"
   1 "onnoj  sistemoj   i   dwadcatx`"
   1 "oni programmami?":
   1 "oko{ke predlogaetsq simwol, a w"
   1 "okon~anii wwoda  kavdoj  stroki":
   1 "okavetsq, ~to A bolx{e W, takim"
   1 "oglawlenii?"
   1 "oformitel`,  esli  on  dowolxno"
   1 "odnowremenno   klawi{i   ";:
   1 "odno ~islo?"
   1 "odnim.          Popytajtesx  na"
   1 "odni edinicy?":
   1 "odinakow","NI^EM","NE OTLI^","ODINAKOW","EN"
   1 "od","Od","ODNU","1 ","EN"
   1 "od","1 ","ODNU","EN":
   1 "od","1 ","ODNO","EN"
   1 "od","1 ","ODN","EN"
   1 "ob}ego    wida,     wy~islq`}u`":
   1 "ob}","razg","besed","OB]EN","RAZG","BESED","GOWOR","EN"
   1 "ob}","progr","OB]EN","PROGRAM","DIALOG","CO","\WM","|wm","ma{","MA[IN","KOMPX@T","EN":
   1 "obrazom oni mogut  bytx  nuvny,"
   1 "obozna~enie argumenta - ";:
   1 "obozna~aet |to ~islo":
   1 "obnul","o~ist","OBNUL","O^IST","EN"
   1 "oba raza wwesti simwol ";:
   1 "ob'qwlenie: 'Esli  Wa{  srednij"
   1 "ob'ema sfery          - ";:
   1 "ob'ema sferi~eskoj obolo~ki bu-"
   1 "ob'em obolo~ki?"
   1 "ob'ekt sostoit iz treh  |lemen-"
   1 "nymi stranicami i  listom-zago-"
   1 "nym blagodarq forme:":
   1 "nyh.   Perewedite na anglijskij"
   1 "nyh w institut?"
   1 "nyh   na  klawi{e,   powtorenie"
   1 "nye Wam fajly?   ^to nuvno sde-"
   1 "nuvnoe mesto."
   1 "nuvno: ";:
   1 "nuvno izmenitx, ~toby  pe~atatx"
   1 "nuvno izmenitx,  ~toby  pe~ata-"
   1 "nuvno izmenitx,  i kak izmenitx,"
   1 "nuven  w  programme ";:
   1 "numeruemyh   peremennyh  ";:
   1 "nulewoj blok na nulewoj dorovke"
   1 "nu` pamqtx ob'emom 16K slow.   ":
   1 "nu` disketu w MH1:. Kak Wy  so-"
   1 "nu {erengu, i pe~ataet ih nome-":
   1 "nu posle puska programmy.":
   1 "nqtxsq, esli po hodu  programmy"
   1 "nowoj diskete? Perwoe dejstwie?"
   1 "nownoj fajl.":
   1 "nostx`)."
   1 "nosti. Skolxko raz umnovitsq  H"
   1 "nositelqh.  Wydawaemye program-"
   1 "nomeru {erengi,  a  kakaq pere-"
   1 "nomerom 2, ~toby programma  na-"
   1 "nomeram ih u~itywala ma{inistka"
   1 "nomer {erengi,"
   1 "nomer stroki 10":
   1 "nomer fajla  (naprimer,  #1 ili"
   1 "noj iz sledu`}ih form:":
   1 "noj \WM movno e}e  wywesti  so-"
   1 "noj   ~asti   programmy   ";:
   1 "nogo wyhodnogo fajla.":
   1 "nogo koli~estwa strok.":
   1 "nogo koli~estwa strok (po umol-"
   1 "nogo fajla":
   1 "noe ~islo?"
   1 "noe <SU/O> wyzywaet  prerywanie"
   1 "no zamenqet wse tri  operatora:"
   1 "no raznica mevdu nomerami metok"
   1 "no  |to  ne s~ita-"
   1 "nitx operator s metkoj 2 ?"
   1 "nitx e}e komandu:":
   1 "niq tangensa k |toj ve program-"
   1 "niq slagaemogo w |toj programme"
   1 "niq sinusa"
   1 "niq s diskety MH1 na disketu MH0"
   1 "niq kotangensa k |toj ve  prog-"
   1 "niq kosinusa k programme ";:
   1 "niq A i W movno bylo  wwesti  s"
   1 "niq  funkcii  ";:
   1 "nikogda ne  budut  wypolneny  w"
   1 "nikog","ne","NE","NIKOGDA","EN"
   1 "nika. Kakih operatorow  ne hwa-"
   1 "nij H: 0, 1, 2, ..., 998, 999 ?"
   1 "nij H nakapliwaetsq w ";:
   1 "nicy teku}ego segmenta redakti-"
   1 "ni` simwol <";:
   1 "ne~etnye ~isla?"
   1 "net","porqd","NET","PORQD","EN":
   1 "neskolxko inoj:":
   1 "nepostoqnna?"
   1 "neogran","mnogo","beskon","NEOGRAN","MNOGO","BESKON","HOTX SKOLXKO","EN"
   1 "neobhodimo ispolxzowatx komandu":
   1 "nenii 4-go operatora?"
   1 "nem geroq, rolx kotorogo on ig-"
   1 "ne izwestno zaranee, ~emu rawny"
   1 "ne hranqtsq odnowremenno wse  8"
   1 "ne budut wypolnqtsq?"
   1 "ne budet dervatx na rabote."
   1 "ne  sowpada`t  s imenem"
   1 "na~inaet s~itywatxsq l`baq  in-"
   1 "na~alo |togo fajla."
   1 "nazywaetsq upraw- lq`}ej.uprawlq`}aq peremennaq   dolvna sostoqtx iz odnoj  bukwy.":
   1 "nazwaniq knig?"
   1 "nazwaniq  zapisannyh  na   disk"
   1 "navimajte klawi{u WWOD!"
   1 "navatx na klawi{u s izobraveni-"
   1 "naruvennoj o{ibke.":
   1 "naq strelka, za wremq w te~enie"
   1 "naq sistema. Popytajtesx zagru-"
   1 "naprimer, pri wwode 2 ona nape-"
   1 "naprimer,  s  magnitnoj   lenty"
   1 "nape~atatx iz q~ejki  H  ~isla:"
   1 "nape~atala  slowo":
   1 "nape~atala  cifru 5. ^to"
   1 "nape~ataet:"
   1 "nape~ataet slowo:"
   1 "nape~ataet slowo ";:
   1 "nape~ataet 45."
   1 "nape~ata-"
   1 "nahoditsq w nutri okruvnosti  s"
   1 "nabratx na klawiature 5-tizna~-"
   1 "na {estoj operator? Kakoj  ope-"
   1 "na programmu  ";:
   1 "na operator 10 iz operatora 8 ?"
   1 "na nuvnyj"
   1 "na nih e}e ne nabran."
   1 "na ee zapros wwesti trojku?"
   1 "na disk w fajl #1 ?"
   1 "na Paskale?"
   1 "na Bejsike, i skolxko  programm"
   1 "n","NET","EN"
   1 "n","N","NET","EN"
   1 "n","N","NET ","NELXZQ ","EN"
   1 "n","N","0 ","NUL","EN"
   1 "my wweli 3.14 ?"
   1 "my wwedem 3 ?"
   1 "my otdaet \WM prikaz pe~atatx K?"
   1 "my 'WOWA' i 'SWETA'?"
   1 "mx1","Mx1","MX1","EN"
   1 "mu q~ejki H kassy e}e  1 rublx."
   1 "movete navatx na WWOD."
   1 "movet","dolvna","pe~at","MOVET","DOLVNA","PE^AT","CO","PE^AT","pe~at","pokav","wyw","POKAV","WYW","KO"
   1 "monitora OS DWK, podobnye ";:
   1 "monitora  operacionnoj  sistemy"
   1 "monitor operacionnoj sistemy?"
   1 "moj soob}eniq pozwolq`t  opera-"
   1 "mogut raspolagatxsq w l`bom meste programmy.waven li{x  porqdok ih raspoloveniq.~isla izbloka dannyh posledowatelxno wy-bira`tsq i priswaiwa`tsq peremennym s pomo}x` operatora 
   1 "mnogo""":
   1 "miga`}em kwadrate  dolvna  bytx"
   1 "mi 148 i 149 ?"
   1 "metrowoj otmetki?"
   1 "metkoj 2 w programme ";:
   1 "metkoj  3,  ~toby  nape~atalisx"
   1 "meti~eskoe  wyravenie,  stoq]ee"
   1 "mesto wywod dannyh w fajl  #2 ?"
   1 "mest","MEST","EN"
   1 "meruet 50 soldat, stoq}ih w od-"
   1 "menx{e W, i posle  operatora  4"
   1 "mennaq   sootwetstwuet   nomeru"
   1 "menitx, ~toby nape~atalsq  wse-"
   1 "menitx tri operatora |toj prog-"
   1 "men`. Dlq togo, ~toby wernutxsq"
   1 "men","Men","MENX[","MINIM","EN"
   1 "me ne budut wypolnqtxsq?"
   1 "matemati~eskoe predstawlenie."
   1 "mart.dat ","MART.DAT ","EN"
   1 "mandy my nakonec-to polu~ili na"
   1 "mandy i funkcii:":
   1 "mandu 'ukazatelx'?":
   1 "manda inicializaciq  oglawleniq"
   1 "mali massiw?"
   1 "magnitofona Wy ispolxzuete?"
   1 "m ","M ","EN"
   1 "lu~ili  prigla{enie  ";:
   1 "lqtxsq predloveniq qzyka BEJSIK"
   1 "lq`}ih simwolow.":
   1 "low ne wliqet na rezulxtat.  Po":
   1 "losx pri nabore otweta na  pri-"
   1 "lo w q~ejke?"
   1 "li~eski powtorq`tsq?"
   1 "li~eski powtorq`tsq w programme"
   1 "li~a`tsq raspoloveniem programm"
   1 "lizirowannu`  disketu  w  MH1:."
   1 "lisx tolxko ~etnye ~isla?" 
   1 "lisa.dat ","LISA.DAT","CO","lisa.bas","LISA.BAS","EN"
   1 "leto.dat ","LETO.DAT ","EN"
   1 "leto ","LETO ","EN"
   1 "lenie: u was kon~ilasx  plenka."
   1 "lenie programmu, adres  kotoroj"
   1 "le.   Na  diske  w  priwode MH1:"
   1 "le  desqtikratnogo  pribawleniq"
   1 "lawlenie):":
   1 "latx  w  razme~ennoj   diskete,"
   1 "kwadrate dolvna bytx bukwa 'S'.":
   1 "ku dlq specifikacii fajla w od-"
   1 "krywaetsq fajl w programme?"
   1 "krot01.com ","KROT01.COM ","CO","krot02.com ","KROT02.COM ","EN"
   1 "krossword ","KROSSWORD ","EN"
   1 "kratku` komandu dlq \WM,  wyra-"
   1 "kotoryj posle wypolneniq opera-"
   1 "kotoryh zakan~iwa`tsq  simwolom"
   1 "kotorye prinimaet H pri  wypol-"
   1 "kotorogo minutnaq strelka proj-"
   1 "kopirowanie teksta iz wspomoga-"
   1 "kopirowanie  teksta w  wyhodnoj"
   1 "kopi","KOPIROWA","EN"
   1 "konkretnyj disk ne ukazan?"
   1 "kompx`ter movet rabotatx w dwuh revimah:neposredstwennom(revim  mikrokalxkulqtora) i osnownom.  w neposredstwennom revime movet wypolnqtxsq tolxko odna stroka  i ona ne dolvna imetx nomera."
   1 "komandu zagruzki  (po-anglijski"
   1 "komandu  ";:
   1 "komandoj ";:
   1 "komanda";:
   1 "komanda":
   1 "komand","prikaz","ukaz","KOMAND","PRIKAZ","UKAZ","EN":
   1 "kom welikowata?"
   1 "kol","krug","KRUGOW","KOLXCEW","EN"
   1 "kogo priwoda  ~itatx  programmu"
   1 "kogda wwodqtsq stroki programmy,to listing otobravaetsq  w  werhnej polowine |krana.";:
   1 "kogda minutnaq strelka  projdet"
   1 "kogda emu prekratitx beg?"
   1 "koe ~islo tam budet teperx?"
   1 "ko poka H<10 ?"
   1 "klawi{u s operatorom."
   1 "klawiatury?":
   1 "klawiature wwodimoe ~islo?"
   1 "ketoj) rabotaet  sistema,  esli"
   1 "kete MH0  posle  otrabotki  ko-"
   1 "ke stadiona. Dlina odnogo kruga"
   1 "kazano w programme ";:
   1 "kavdaq klawi{a kompx`tera ":
   1 "kat","ogl","dir","KATALOG","OGLAWLEN","DIREKTOR","EN"
   1 "kat","kar","KATALOG","KARTATEK","EN"
   1 "kakoj koncu distancii?"
   1 "kak nuvno izmenitx, ~toby nape-"
   1 "kak nuvno izmenitx,  ~toby  wy-"
   1 "kak 'razli~aet' fajly mevdu so-"
   1 "kah W$ i S$ ?"
   1 "k |toj ve programme"
   1 "k zna~eni`     uprawlq`}ej peremennoj cikla    pribawlqetsq weli~ina {aga prira}eniq.esli polu~ennoe zna~enie  stalo bolx{e kone~nogo zna~eniq (predela),to uprawlenie peredaetsq operatoru sledu`}emu za ";:
   1 "k programme ";:
   1 "k kopirowani`.  Dopustim, ~to w"
   1 "k ","K ","EN"
   1 "izwle~enie stroki"
   1 "izwle~enie simwola"
   1 "izwesti  s  Wa{ej  plenki pesn`"
   1 "izobravenii klawiatury sootwet-"
   1 "iz programmy ";:
   1 "iz bufera stroki."
   1 "iz bufera i zanesenie ego w os-"
   1 "iz MH1: na  kotoru`  Wy  tolxko"
   1 "iz 2002 strok nemnovko  weliko-"
   1 "itx     ";:
   1 "ispolxzuq  dlq upro}eniq"
   1 "ispolxzowatx komandu ";:
   1 "ispolxzowatx <SU/S> ili <SU/";:
   1 "ispolnenii programmy ";:
   1 "irowatx'?":
   1 "invenera?"
   1 "initialize."
   1 "ini","INICIALI","EN"
   1 "imq peremennoj ne movet sowpa-  datx s imenem operatora(";:
   1 "imetx wid:":
   1 "imen     fajlow      ";:
   1 "ime`}ih odno nazna~enie,  nazy-"
   1 "im","Im","naz","Naz","IMEN","NAZWAN","EN"
   1 "im","Im","naz","IMQ","NAZWAN","EN"
   1 "ili revimom w kotorom nahoditsq kompx`ter.revim otobravaetsq kursorom-merca`}ej bukwoj, ukazywa`}ej pozici`,w kotoru` budet wywoditxsq o~erednoj simwol s klawiatury.wozmovny sledu`}ie revimy: ";:
   1 "ili posle"
   1 "ili       ";:
   1 "i ~etwertoj q~eek massiwa H ?"
   1 "i t.p. Opredelite po tipam,"
   1 "i t.d.)imq ne movet na~inatxsq s bukw";:
   1 "i sohranqetsq do teh por,poka ne budet navata klawi{a ";:
   1 "i skolxko programma":
   1 "i preobrazuet stroku w~islo,tak";:
   1 "i polu~ili"
   1 "i operator 4 pe~ataet 1.":
   1 "i obnowlqet pamqtx displeq.":
   1 "i koli~estwo detej ";:
   1 "i klawi{u s":
   1 "i klawi{u s"
   1 "i dorovek?"
   1 "i Wy sozdaete fonoteku.   Kakie"
   1 "i 2. W miga`}em"
   1 "i  ne  otpuskaq  ee  navmite na"
   1 "i  kakie  dwa   ~isla"
   1 "i   widite   sledu`}ij"
   1 "i   na   |krane   displeq   wy-"
   1 "gruzki sistemy (WOOT) ot wersii"
   1 "gruzki    (tip    ";:
   1 "gruzitxsq operacionnaq sistema,"
   1 "granic segmenta redaktirowaniq."
   1 "gom 0.3 .  ^to nuvno  postawitx"
   1 "go poiska, to sna~ala  wypolnq-"
   1 "glijski   ";:
   1 "gla{eniq  ";:
   1 "glagolow:":
   1 "glagol 'nazwatx','datx naimeno-"
   1 "glagol 'kopirowatx'."
   1 "glagol ","GLAGOL ","EN"
   1 "garav na 100 boksow?"
   1 "funkcionirowanie?"
   1 "funkcij:":
   1 "funkcij neobhodimo navatx  kla-"
   1 "funkcii)."
   1 "funkcii wy~islq`tsq pered wypol-neniem l`byh operacij,no wy mo- vete izmenitx |tot porqdok,pri- menqq skobki."
   1 "funkcii ili wwod w tekst upraw-":
   1 "funkci`,to process prerywaetsq,"
   1 "fragment programmy:":
   1 "formule: U=5*H+3,  pri H rawnom"
   1 "formaciq?"
   1 "formaciq komandoj W ?"
   1 "formacii na diske, esli na  nem"
   1 "fewralx","FEWRALX ","EN"
   1 "fevr.dat ","FEVR.DAT ","EN"
   1 "familiq sotrudnika, ";:
   1 "familij  i  koli~estwo  detej w"
   1 "fajly iz drugoj diskety?"
   1 "fajly  u~itywaet  programma.  A"
   1 "fajlow, nahodq}ihsq na diskowyh"
   1 "fajlow ";:
   1 "fajla  ";:
   1 "fajl iz bufera sohraneniq."
   1 "fajl dannyh."
   1 "fajl  oglawleniq  ne sozdaetsq."
   1 "etsq za o{ibku. Kakoj tip  wse-"
   1 "etsq w |toj programme i skolxko"
   1 "etsq w wide fajla w formate za-"
   1 "etsq komandoj monitora:":
   1 "etsq  funkciq  ";:
   1 "ete, ~toby wwesti o~erednu` ko-"
   1 "et na russkom qzyke?"
   1 "et  programma   ";:
   1 "esli zaranee  ne izwestny  zna-"
   1 "esli wypolnitx:           ";:
   1 "esli wwesti ~islo 1"
   1 "esli w ego programme mnogo  raz"
   1 "esli to~ek perehoda o~enx mnogo"
   1 "esli to~ek perehoda nemnogo, no"
   1 "esli po zaprosu \WM wwesti  2 ?"
   1 "esli otwet"
   1 "esli o  nej  net swedenij w ";
   1 "esli nekotoraq klawi{a uderviwaetsq w navatom polovenii    bolee,~em 2 ili 3 sekundy,to |to wyzowet powtor ee dejstwiq.wwod s klawiatury osu}estwlqetsq w  nivn`` polowinu |krana. kavdyj  simwol poqwlqetsq pered kursorom,sam kursor movno pereme}atx po |kranu klawi{ami:":
   1 "esli my wweli trojku?"
   1 "esli kompx`ter ovidaet wwod komandy ili stroki programmy.|to movet bytx w na~ale strok ili posle ";:
   1 "esli 'wynesti' ob}ie  mnoviteli"
   1 "esli  wtoroj   operator   budet"
   1 "esli  pri  razmetke obnaruvatsq"
   1 "esli     pri"
   1 "esli     my"
   1 "emkostx diskety?"
   1 "em |togo operatora. Esli opera-"
   1 "ego w bufere stroki.":
   1 "ego smysl."
   1 "ego movno pereme}atx nive ili wy{e,ispolxzuq klawi{i  ":
   1 "ee prigla{enie imeet wid '.' ?"
   1 "dwe  osnownye   funkcii  Wa{ego"
   1 "dwa","2 ","DWA","EN"
   1 "dw","DW","2 ","EN"
   1 "dw","2 ","DWA ","EN"
   1 "du`}ij wid:":
   1 "du operatorami ";:
   1 "dorovki, na kotoroj razme}aetsq"
   1 "dolvna priostonowitx wypolnenie"
   1 "dolven   wypolnqtxsq"
   1 "dnaq strelka ~asow,  za  wremq,"
   1 "dlq |toj ve programmy"
   1 "dlq |toj programmy?"
   1 "dlq wyhoda":
   1 "dlq sis-"
   1 "dlq \WM SEWER:":
   1 "dlq DWK."
   1 "dlq  |krannogo   redaktirowaniq"
   1 "dlq  uskoreniq   raboty  komand"
   1 "dlq  'numeruemyh'  peremennyh H"
   1 "dliny okruvnosti      - ";:
   1 "dlinu slowa S$"
   1 "dlina ego {aga 1 metr?"
   1 "dite, ~toby \WM 'ponqla', s ka-"
   1 "displeq?"
   1 "displej","monitor","terminal","|kran","DISPLEJ","MONITOR","TERMINAL","\KRAN","EN"
   1 "displej    sodervaniq     fajla"
   1 "diskety,  pokazannyj  w  perwom"
   1 "diskety    programmoj    ";:
   1 "disketu w priwode MH1:.   Wweli"
   1 "disketu MH0:":
   1 "diskete tekstowyh  fajlow  (so-"
   1 "diskete MH0, esli budet wwedena"
   1 "diskete MH0 ?"
   1 "diskete  MH1  posle  wypolneniq"
   1 "diskete   'komandnyh'    fajlow"
   1 "disketa  tolxko  s operacionnoj"
   1 "diske  otkroetsq  fajl   ";:
   1 "diska? (do 3 bukw)."
   1 "dis","DISK","EN"
   1 "diagramma,  izobravennaq  w  3."
   1 "di: odnu s nerazme~ennymi  lis-"
   1 "detej.'":
   1 "det imetx wid:":
   1 "det 5 delenij?"
   1 "des","DES","10 ","EN"
   1 "derva}ih tekstowu` informaci`)?"
   1 "dervanie fajla dlq  wizualxnogo"
   1 "dervanie   fajla   ";:
   1 "dennogo posredstwom kontekstno-"
   1 "delaet funkciq ";:
   1 "dejstwu`t kak ";:
   1 "dejstwiq w sootwetstwii s funk-"
   1 "dejstwiq neobhodimy dlq  podgo-"
   1 "dejstwie.";
   1 "defektnye bloki?"
   1 "data ","DATA ","EN"
   1 "dat","Dat","DAT ","EN"
   1 "darq operatoru  5  ( perehod na"
   1 "dannyh  na  disk  nuvno ukazatx"
   1 "da`tsq 6 sektorow po 40 dorovek"
   1 "da","budet","kone~no","DA","BUDET ","KONE^NO ","OBQZATELXNO ","EN"
   1 "da pojdet 'abiturient Petrow' ?"
   1 "d","D","EN"
   1 "d ","D ","EN"
   1 "copy mx1:*.dat mx0: ","COPY MX1:*.DAT MX0: ","EN"
   1 "copy ","COPY ","EN"
   1 "clock ","CLOCK ","EN"
   1 "cionalxnymi  wozmovnostqmi  |k-"
   1 "cikli~eski?"
   1 "cikla? (Napisatx operator  pol-"
   1 "cifikaci`  fajla w formate ";:
   1 "celaq stroka movet bytx udalena wwodom nomera udalqemoj stroki i posledu`}im navatiem klawi{i   ";:
   1 "by dlq  \WM  razre{enie prodol-"
   1 "by  na  diskete  MH0  oni imeli"
   1 "by  na  diskete  M
   1 "bukwa 'S'.":
   1 "bukw putem odnowremennogo nava-"
   1 "bufera sohraneniq 512 simwolow)":
   1 "budut wypolnqtxsq w |toj  prog-"
   1 "budet:   ";:
   1 "budet w q~ejke?" 
   1 "budet perhod na operator  7,  a"
   1 "budet imetx wid: ";:
   1 "bravennogo  na displee,  widno,"
   1 "bravenie?"
   1 "botatx'  naimenx{ee  koli~estwo"
   1 "bora teksta, neobhodimo  wwesti"
   1 "boj sistema u~eta diskowoj  pa-"
   1 "bloknota wladelec bloknota  za-"
   1 "biratesx |to sdelatx?  Napi{ite"
   1 "biraemaq operatorom po velani`."
   1 "binacij  klawi{   ";:
   1 "bez sohraneniq otkrytyh  fajlow"
   1 "bevit do 60-ti metrowoj otmetki"
   1 "bevit distanci` 60 metrow, esli"
   1 "bevit 60 metrow, esli dlina ego"
   1 "bevatx soob}enie ob o{ibke?"
   1 "bevatx ne ot na~ala, a ot 30-ti"
   1 "basicles"
   1 "ball wy{e 4.7, to  projdite  na"
   1 "az1.cod2"
   1 "az1.cod1"
   1 "astr.fnt"
   1 "argumenta w operatore 2 ?"
   1 "arbuz","bo~ka","wilka","glaz","dom","elx","veludx","zabor","igla","jod","kit","list","most","nov","okno","plita","ryba","stol"
   1 "animalsm"
   1 "anglijski  frazu  'sotrite sim-"
   1 "a w kakoj- nowoe?"
   1 "a navatie cifrowoj klawi {i s klawi{ej 
   1 "a movno sokra}enno: ":
   1 "`}ih wnutrenn`` i naruvnu`  po-"
   1 "`tsq operatory 3, 4, 5,  blago-"
   1 "^to wy~islqet programma ";:
   1 "^to qwlqetsq argumentom funkcii"
   1 "^to proizo{lo s predydu}im zna-"
   1 "^to proizo[lo s ~islom 5 w":
   1 "^to polu~itsq w q~ejke K%, esli"
   1 "^to ozna~aet razli~ie ";:
   1 "^to otme~aet znak $ pri  imenah"
   1 "^to otme~aet znak  %  pri imeni"
   1 "^to nuvno wwesti,  ~toby  posle"
   1 "^to nuvno sdelatx programmistu,"
   1 "^to nuvno otwetitx,  ~toby  na-"
   1 "^to nuvno izmenitx w  operatore"
   1 "^to nuvno  sdelatx  hudovniku -"
   1 "^to neobhodimo sdelatx w  prog-"
   1 "^to nape~ataet |ta programma?"
   1 "^to nape~ataet tretij  operator"
   1 "^to nape~ataet operator":
   1 "^to nape~ataet operator s  met-"
   1 "^to nape~ataet operator 7 prog-"
   1 "^to nape~ataet operator 5 prog-"
   1 "^to nape~ataet operator 3 prog-"
   1 "^to nape~ataet operator ";:
   1 "^to my oby~no  dolvny  peremno-"
   1 "^to i kak  preobrazuet  funkciq"
   1 "^to dolvno bytx  zaprogrammiro-"
   1 "^to dolven znatx Fedorow, ~toby"
   1 "^to dolven znatx Fedorow, ~
   1 "^to delaet perwyj operator \tih":
   1 "^to delaet operator  priswaiwa-"
   1 "^to delaet operaciq  +  w prog-"
   1 "^to delaet \WM, wypolnqq opera-":
   1 "^to  realizuet |ti wozmovnosti?"
   1 "^to  proishodit  pri wypolnenii"
   1 "^to  delaet  poslednqq  komanda"
   1 "^to  Wy  popytaetesx   sdelatx,"
   1 "^to   delaet   wtoroj  operator":
   1 "^to    nape~ataet      operator"
   1 "^emu rawen {ag peremennoj  K  w"
   1 "^emu rawen H(7) ?"
   1 "^emu rawen H(6) ?"
   1 "^emu rawen H(4) ?"
   1 "^emu rawen H(3) ?"
   1 "^emu  rawna   M   w   programme"
   1 "^emu  budet   rawno   ";:
   1 "^em otli~a`tsq rezulxtaty rabo-"
   1 "^em otli~a`tsq razli~nye wersii"
   1 "^em  otli~aetsq  li~nyj   garav"
   1 "^asy i minuty:";d$
   1 "^TO TAKOE QZYK, NAPRIMER,  RUS-"
   1 "^TO TAKOE KOMANDA ?"
   1 "^TO TAKOE INSTRUKCIQ PO POLXZO-"
   1 "^TO DAET KOMANDIR  WO WREMQ  BOQ"
   1 "^ETWERG': ";:
   1 "^ELOWEK","PROGRAM","POLXZ","EN"
   1 "\ti programmy dela`t odinakowye"
   1 "\ti fajly ime`t tipy  ";:
   1 "\ta programma rabotaet.   Za~em"
   1 "\WM s~itaet  bystree  ~eloweka?"
   1 "\WM ranx{e wmesto displeq?"
   1 "\WM imeet dwa diskowyh  priwoda"
   1 "\WM  SEWER  funkciq  wy~isleniq"
   1 "[irota (5 cifr):";d$ 
   1 "[ERENGA'";:
   1 "[","{","6 ","EN"
   1 "Zna~it,  spisok #1,   spisok #2"
   1 "Zna~it,  ";:
   1 "Zna~eniq kakoj peremennoj nape-"
   1 "Zna~enie H rawno 5. ^emu  budet"
   1 "Za~em w programmirowanii pridu-"
   1 "Za~em programme imq?"
   1 "Za~em oni togda nuvny?":
   1 "Za~em nuvna takaq programma?"
   1 "Zapi{ite prawilxno operator 5 w"
   1 "Zanesenie   teksta  w"
   1 "Zafiksirujte  nabor   zaglawnyh"
   1 "Za skolxko {agow sportsmen  do-"
   1 "Za kakoe wremq \WM movet wypol-"
   1 "ZIKL5  ";:
   1 "ZIKL3   ";:
   1 "ZIKL2    ";:
   1 "ZAMENA.":
   1 "Z     ";:
   1 "Ynvar|",8
   1 "X(8)->64":
   1 "X(7)->49":
   1 "X(6)->36":
   1 "X(5)->25":
   1 "X(4)->16":
   1 "X(3)->9":
   1 "X(2)->4":
   1 "X(1)->1":
   1 "Wypolnqq  operator  wwoda,  \WM"
   1 "Wypiska iz slowarq:":
   1 "Wyberem  iz  ukazatelq   ob'ekt"
   1 "Wy ~itaete stranicu ukazatelq w"
   1 "Wy zagruzili operacionnu`  sis-"
   1 "Wy uwereny? (D/N)-->";
   1 "Wy nahoditesx w westib`le firmy"
   1 "Wy dolvny  bezo{ibo~no  wwoditx"
   1 "Wy  wweli  perwyj  simwol  ";:
   1 "Wy  neposredstwenno pristupaete"
   1 "Wweite  operator opisaniq  funk-"
   1 "Wwedite simwol'":
   1 "Wwedite operatory w stroke 16"
   1 "Wwedite operator w stroke 17"
   1 "Wwedite operator w stroke 15"
   1 "Wwedite operator opisaniq  funk-"
   1 "Wwedite nomer funkcii'":
   1 "Wwedite l`boe ~islo'":
   1 "Wwedite komandu-->":
   1 "Wwedite koli~estwo knig'":
   1 "Wwedite imq kartoteki-->";
   1 "Wwedite e}e simwol'":
   1 "Wwedite argument'":
   1 "Wwedite  operator opisaniq  fun-"
   1 "Wwedem komandu  ";:
   1 "Wtoroe dejstwie."
   1 "Wstawxte nedosta`}ij operator"
   1 "Wspomnim, ~to 'Pisatx' po-  an-":
   1 "Wsego u sotrudni-":
   1 "Wozwrat po-anglijski ";:
   1 "Wozobnowlenie   raboty"
   1 "Wozmovno  li  w  matematike ra-"
   1 "Wozmoven li bystryj  poisk  in-"
   1 "Wnimatelxno razberite sledu`}u`"
   1 "Wersii operacionnyh sistem raz-"
   1 "Wa{a programma  delaet  slovnye"
   1 "Wam predlovili dwe ob}ih tetra-"
   1 "Wam  ne  kavetsq, ~to programma"
   1 "WY^ITANIE'":
   1 "WYREZ","WYDWL","OTDEL","OTREZ","EN"
   1 "WYBOR  ";:
   1 "WWOD   (";:
   1 "WWEDITE RADIUS'":
   1 "WWEDITE POQS'":
   1 "WWEDITE NOMER FUNKCII'":
   1 "WWEDITE KOD DEJSTWIQ'":
   1 "WWEDITE DANNYE'":
   1 "WTORNIK': ";:
   1 "WREMQ","EN"
   1 "WOWA,  ";:
   1 "WA[A OCENKA-  ";S/29
   1 "WA[A OCENKA-   ";S/36
   1 "WA[A OCENKA-   ";S/26
   1 "WA[A OCENKA-   ";S/25
   1 "WA[A OCENKA-   ";S/20
   1 "WANI@ BYTOWYM  PRIBOROM, NAPRI-"
   1 "W$ i S$ ?"
   1 "W ~em otli~ie  priswaiwaniq  ot":
   1 "W ~em Wy"
   1 "W |tom operatore ne ukazan  tip"
   1 "W spiske estx glagol 'Pe~atatx'"
   1 "W programme beskone~no powtorq-"
   1 "W processe wypolneniq programma":
   1 "W miga`}em kwadrate dolvna  po-"
   1 "W magazine kancelqrskih towarow"
   1 "W kakom e}e slu~ae programmistu"
   1 "W kakom bloke zagotowleny imena"
   1 "W kakom bloke \WM hranitsq  in-":
   1 "W kakie stepeni movet wozwoditx"
   1 "W dannom razdele  w  kwadratnyh"
   1 "W \WM sna~ala wy~islqetsq arif-"
   1 "W Bejsike estx wozmovnostx  za-"
   1 "W  programme  ";:
   1 "W  programme   ";:
   1 "W  kakom  meste  nuvno dobawitx"
   1 "W  kakoj  ~asti  diska hranqtsq"
   1 "W  kakoj  ~asti  'rawenstwa'  w"
   1 "VOVA  ";:
   1 "VALUE ";:
   1 "U~itywa`t li programmy zagruzki"
   1 "Uspeet li za |to wremq  ~elowek"
   1 "Uprostim komandu kopirowaniq:":
   1 "Ukavite koli~estwo":
   1 "Ukavite  perwye  tri  zna~eniq,"
   1 "Udobna li takaq fotokopiq?"
   1 "Udalenie  zadannogo"
   1 "Udalenie    informacii"
   1 "U telefonnoj  budki stoit  o~e-"
   1 "U dweri priemnoj komissii wisit"
   1 "Tretxe dejstwie?"
   1 "Teperx wernemsq k zada~e  kopi-"
   1 "Teperx imeem programmu:":
   1 "Telefon Sergeewa: 13-42-55.":
   1 "Telefon Sergeewa 'T":
   1 "Telefon Sergeewa  134255"
   1 "TYPE, PRINT, COPY) ?":
   1 "TYPE MX0:RODIN.TXT"
   1 "TYPE MX0:ROBIN.DAT"
   1 "TRENAVER NABORA OPERATOROW, KO-"
   1 "TIME 11:35:45":
   1 "THREE   ";:
   1 "THE SYMBOL X',  ";:
   1 "TESTMX.SAV ";:
   1 "TESTMX ":
   1 "TESTMX  ";:
   1 "TESTMX   ";:
   1 "TELETYPE":
   1 "Summa='";:
   1 "Srawnite sledu`}ie dwa protoko-"
   1 "Srawnim dwe programmy na  qzyke"
   1 "Sproektiruem funkci` dlq ras~e-"
   1 "Sportsmen bevit 5-ti kilometro-"
   1 "Sowpadaet li imq artista s ime-"
   1 "Sotrudnik '";:
   1 "Sostawte programmu, kotoraq nu-"
   1 "Sopostawim dejstwiq algoritma i":
   1 "Soob}il  li  ";:
   1 "Sokra}enie SPCFL ozna~aet  spe-"
   1 "Sokratite    wyravenie    ";:
   1 "Sledu`}aq komanda kopiruet fajl"
   1 "Skrolling  (bystroe  probeganie"
   1 "Skopiruetsq li  programma  WOOT"
   1 "Skonstruirujte weroqtnyj  pere-"
   1 "Skolxko zna~enij ";:
   1 "Skolxko zna~enij  H  hranitsq w"
   1 "Skolxko zapisej wywedet na  |k-"
   1 "Skolxko zapisej  na  |toj stra-"
   1 "Skolxko wsego programm na  |toj"
   1 "Skolxko wsego blokow sostawlqet"
   1 "Skolxko stalo deneg w q~ejke?"
   1 "Skolxko rekwizitow w zapisi"
   1 "Skolxko raznyh imen  peremennyh"
   1 "Skolxko raz wypolnitsq operator":
   1 "Skolxko q~eek pamqti dlq nabora"
   1 "Skolxko q~eek  pamqti  zanimaet"
   1 "Skolxko operatorow cikla  budet"
   1 "Skolxko funkcij  nuvno  opisatx"
   1 "Skolxko fajlow na diskete MH0:?"
   1 "Skolxko delenij projdet sekund-"
   1 "Skolxko delenij projdet  sekun-"
   1 "Skolxko  ~isel budet nape~atano"
   1 "Skolxko  ~isel   nape~ataet |ta"
   1 "Skolxko  zna~enij  ";:
   1 "Skolxko  strok  programmy   ";:
   1 "Skolxko  operatorow   programmy"
   1 "Skolxko   wsego   operatorow  w"
   1 "Skolxko   operatorow   ";:
   1 "Skolxki indiwidualxnym  garavam"
   1 "SYMBOLS ?"
   1 "SWOIM BOJCAM ?"
   1 "SUBROUTINE,  ";:
   1 "SUBROUTINE":
   1 "SUBROUTINE ?"
   1 "STRONCIJ ?"
   1 "STRING ";:
   1 "STEP 0 ?"
   1 "START,   ";:
   1 "SS" TO NEXT PAGES
   1 "SREDA': ";:
   1 "SPISOK,   ";:
   1 "SPISOK   ";:
   1 "SPCFL/S - sozdanie fajla       ":
   1 "SPCFL/";:
   1 "SPCFL - redaktirowanie fajla   ":
   1 "SPCFL  ili   NOWAQ SPCFL=STARAQ":
   1 "SOLDAT NOMER'K":
   1 "SLOVENIE'":
   1 "SKIJ  ILI  ANGLIJSKIJ- DLQ ^EGO "
   1 "SINUS   ";:
   1 "SIN(K)    ";:
   1 "SIMWOLY NE ODINAKOWY'":
   1 "SIMWOLY    ODINAKOWY'":
   1 "SEGMENT  ";:
   1 "S kakoj disketoj (aktiwnoj dis-"
   1 "S kakoj celx` numeru`tsq koman-":
   1 "S kakogo nomera na~inaetsq pod-"
   1 "S kakogo mesta diska ili  lenty"
   1 "Re~x idet wse o toj ve  diskete"
   1 "Rezulxtat=';S":
   1 "Redaktor prednazna~n dlq priob-"
   1 "Red    ";:
   1 "Razli~aetsq li sodervimoe q~eek"
   1 "Rassmotrim pustu` q~ejku  kassy"
   1 "Rassmotrim programmu na Bejsike"
   1 "Rassmotrim operator":
   1 "Radius?'":
   1 "RUN TESTMX  ";:
   1 "ROWANIQ NA \WM ?"
   1 "ROUTINE."
   1 "ROUTINE,  ";:
   1 "ROUTINE ?"
   1 "ROUTINE -";:
   1 "ROUTINE ";:
   1 "ROUTINE    ";:
   1 "ROST.DAT, PROBA.DAT"
   1 "ROST  .BAS   8  13-Jul-88":
   1 "RODIN.TXT - ";:
   1 "RODIN.TXT   ";:
   1 "ROBIN.DAT - ";:
   1 "ROBIN,  ";:
   1 "ROBIN,    ";:
   1 "RITA.BAS"
   1 "REZULXTAT=';S":
   1 "REZULXTAT='";:
   1 "REX2.BAS ?"
   1 "REX1.BAS     ";:
   1 "REX.BAS   ";:
   1 "RETURN.":
   1 "RETURN ";:
   1 "RETURN  ";:
   1 "RETURN   ";:
   1 "RESTORE, ";:
   1 "RESTORE ?"
   1 "REN MX1:LUNA.COM MX1:LIZA.COM"
   1 "RAZME^EN","PRONUMER","WTORAQ","EN"
   1 "RAS^ETNYE FORMULY DLQ KRUGA I SFERY:'":
   1 "RADIUS? TOL]INA? UD.WES?'":
   1 "RADIUS*RADIUS*RADIUS/3"
   1 "QUIT.                          ":
   1 "QNWARX','FEWRALX','MART'":
   1 "Q*4*PI*(R*R*R-(R-D)*(R-D)*(R-D))/3","EN"
   1 "Pustx okruvnostx  s  radiusom W"
   1 "Pustx nekotoraq programma imeet"
   1 "Proizwedite  ot  slowa ";:
   1 "Programmu  sleduet   prodolvitx"
   1 "Programma  rabotaet  prawilxno,"
   1 "Programma  rabotaet  praw
   1 "Programma   ";:
   1 "Programma    ";:
   1 "Prodolvaem rabotatx  s disketoj"
   1 "Primer:   3 ";:
   1 "Prigla{eniem redaktora qwlqetsq"
   1 "Priblizitelxno  wo  skolxko raz"
   1 "Pri rabote |tot fragment  prog-"
   1 "Pri kakom zna~enii K budet 'ra-"
   1 "Pri kakom K w na~alxnoj pokazan-"
   1 "Preduprevdenie:powtor-"
   1 "Preduprevdenie: prery-"
   1 "Po~emu?":
   1 "Po~emu,  poka  H
   1 "Po~emu w operatore  2 programmy"
   1 "Po~emu w operatiwnoj pamqti \WM"
   1 "Po~emu programma nape~ataet 0 ?"
   1 "Po~emu poslednee wyravenie gro-"
   1 "Po~emu neobhodim operator w"
   1 "Po~emu nape~ataet odno ~islo?"
   1 "Po~emu imena argumentow w  ope-"
   1 "Po~emu  Alekseew  otkryl   fajl"
   1 "Pozicioniruet ";:
   1 "Potomu ~to w |toj  programme  A"
   1 "Postawitx posle wtorogo  opera-"
   1 "Posmotrite  spisok   anglijskih":
   1 "Poslednee dejstwie?"
   1 "Posle wypolneniq poslednej  ko-"
   1 "Posle prigla{eniq wwedite stro-"
   1 "Posle nekotoryh dopolnenij  na-"
   1 "Posle dannoj funkcii razre{aet-"
   1 "Posle  |togo  navmite na  WWOD."
   1 "Posle  wypolneniq  komandy  ";:
   1 "Posle  skolxki  prohodow  cikla"
   1 "Porqdok  raboty  s  redaktorom."
   1 "Polu~iw nomer priwoda, program-"
   1 "Podwedem  e}e  odin   malenxkij"
   1 "Po- anglijski 'Pustx  on bevit'"
   1 "Po okon~anii wwoda ~elowek dol-"
   1 "Po  komande  ";:
   1 "Plo}adx kruga=';";:
   1 "Plo}adx kolxca=';R":
   1 "Planeta    Viznennyj princip    
   1 "Pere~islite, summa kakih zna~e-"
   1 "Perewedite na russkij qzyk ope-"
   1 "Perewedite na  anglijskij,  is-"
   1 "Perewedite  na  anglijskij qzyk"
   1 "Perepe{ite obe programmy:":
   1 "Pered Wami programma  i  q~ejka"
   1 "PROST.DAT ?"
   1 "PROBA.DAT,":
   1 "PRINT-";:
   1 "PRINT","A$(3) ","EN"
   1 "PRINT Z, ":
   1 "PRINT Z      ";:
   1 "PRINT X  ";:
   1 "PRINT S ";:
   1 "PRINT MX0:ROBIN.DAT"
   1 "PRINT ?":
   1 "PRINT ";:
   1 "PRINT ","EN":
   1 "PREWOSHODNO","OTLI^NO","HORO[O","SREDNENXKO","SLABOWATO","NE GODITSQ","NE WERNO"
   1 "PREWOSHODNO","OTLI^NO","HORO[O","SREDNENXKO","SLABOWATO","NE GODITSQ","NE PRAWILXNO"
   1 "PRAWILXNYJ OTWET:":
   1 "PQTNICA'":
   1 "PQT","pqt","5 ","EN"
   1 "PONEDELXNIK'"
   1 "POKAZATELX ?":
   1 "PLO]ADX KRUGA'":
   1 "PLACE>.":
   1 "PETROGRAD."
   1 "PETROGRAD'":
   1 "PAROWOZ ?"
   1 "Otwetxte,  kak  najti  glawnogo"
   1 "Otwet:  iz oglawleniq diska."
   1 "Otmena     prigla{eniq"
   1 "Otkuda sistema  uznaet  teku}u`"
   1 "Otkuda  sistema  znaet   to~noe"
   1 "Otkuda  Bejsik  znaet   teku}ee"
   1 "Ot operatorow s kakimi  metkami"
   1 "Ot kogo \WM  polu~aet  zna~enie"
   1 "Opredelqet, kakie simwoly kodi-"
   1 "Opredelenie stranic w  sootwet-"
   1 "Opi{ite w operatore  3  funkci`"
   1 "Opi{ite  w  operatore 2 funkci`"
   1 "Opi{em |ti dejstwiq dlq \WM po-":
   1 "Opisaniq  funkcij  na~ina`tsq  s"
   1 "Operatory s kakimi metkami cik-"
   1 "Operatory  s  kaimi  metkami ne"
   1 "Operatory  5  i  6 budut wypol-"
   1 "Operator smetkoj 2, wmesto:":
   1 "Operator s metkoj 2 kavdyj  raz"
   1 "Operator  perehoda:    ";:
   1 "Operator  4  programmy  ";:
   1 "Okon~atelxnyj wid programmy:":
   1 "Okon~atelxno imeem programmu":
   1 "Odnowremenno navmite i otpustite":
   1 "Odnako ve sistema s |toj diske-"
   1 "Ob'em sfery = 4*";:
   1 "Ob'edinim programmu i  podprog-"
   1 "OTWET: Nomer  sektora  i  adres"
   1 "OTWET:   ";:
   1 "OTWET PRAWILXNYJ ?"
   1 "OSNOWANIE ?":
   1 "ON SLUVIT ?"
   1 "ON N GOTO..."
   1 "OB'EM SFERY'":
   1 "Nuvno navatx ";:
   1 "Nowosibirskij"," Regionalxnyj","  \ksperimen-","talxnyj Centr","  Informatiki"
   1 "Nomer zamenqemoj stroki-->";N
   1 "Nomer rabo~ego dnq?'":
   1 "No  wedx  posle  formatirowaniq":
   1 "Nikak, |to wsegda na~alo diska:"
   1 "Ne budet li programma, soderva-"
   1 "Na~alo programmy  ~teniq  fajla"
   1 "Nazowem nekotoru` q~ejku pamqti"
   1 "Naprimer, kogda oni ne zada`tsq"
   1 "Napi{ite programmu sloveniq"
   1 "Napi{ite podprogrammu wy~itaniq"
   1 "Napi{ite podprogrammu umnoveniq"
   1 "Napi{ite  programmu,  wy~islq`-"
   1 "Napi{ite  podprogrammu  deleniq"
   1 "Napi{ite  operator  5,  kotoryj"
   1 "Napi{ite  operator  4,  kotoryj"
   1 "Nape~atatx (y/n):";s$:
   1 "Nape~ataet li programma ";:
   1 "Na kavdoj storone diskety prog-"
   1 "Na kakom operatore \WM  ostano-"
   1 "Na kakoe ustrojstwo  personalx-"
   1 "Na  o~erednoj  ~istoj  stranice"
   1 "Na  kakom  diske  Bejsik  budet"
   1 "NUMBERS ?"
   1 "NOMER SEZONA ?'":
   1 "NOMER MESQCA ?'":
   1 "NOMER FAJLA ?'":
   1 "NEXT K  ";:
   1 "NAME2   ";:
   1 "N","n","0 ","EN"
   1 "N (sewer) ili S (`g):";d$
   1 "My  widim  na  |krane sledu`}ij"
   1 "Movno li,  posmotrew  2 sekundy"
   1 "Movno li sdelatx w bloknote za-"
   1 "Movno li na magnitofone wospro-"
   1 "Mesqc (ciframi):";d$
   1 "MX1:ROST.DAT":
   1 "MX1:PROST.DAT":
   1 "MX1:PROBA.DAT. ";:
   1 "MX1:PROBA.BAS":
   1 "MX1:KROT02.COM":
   1 "MX1:KROT01.COM":
   1 "MX1: PROST.DAT":
   1 "MX1: PROBA.DAT":
   1 "MX1: PROBA.BAS":
   1 "MX1: KROTO2.COM":
   1 "MX1: KROTO1.COM":
   1 "MX1","EN"
   1 "MX0:TUKTUK.PAS    MX0:ROBIN.DAT"
   1 "MX0:STRUNA.BAS":
   1 "MX0:STOK.COM":
   1 "MX0:SILA.COM   MX1:LISA.BAS"
   1 "MX0:SCOONS.COM    MX0:FUKS.BAS"
   1 "MX0:ROBERT.COM    MX0:RITA.BAS"
   1 "MX0:MOUSE.PAS     MX0:ELSA.TXT"
   1 "MX0:MARS.COM":
   1 "MX0:LUNA.COM   MX1:LIZA.DAT"
   1 "MX0:LISA.DAT":
   1 "MX0:LISA.BAS":
   1 "MX0:LIDIJA.BAS    MX0:RODIN.TXT"
   1 "MX0:KROT.COM":
   1 "MX0:KREST.COM":
   1 "MX0: SPISOK.DAT":
   1 "MX0: MOST.BAS":
   1 "MX0: LIPA.TXT":
   1 "MKKKKKN","AQ   CA","Ar   EA","Ao   FA","Aa   DA","Am  GHA","OKKKKKP":
   1 "MKKKKKKKKKKKKKKN","A pokavi bukwy A","Aposlu{aj slowaA","A pokavi slowa A","A napi{i slowa A","OKKKKKKKKKKKKKKP":
   1 "MKKKKKKKKKKKKKKKKKKKN","A 
   1 "MH1: wtoroj |kzemplqr  operaci-"
   1 "MH1: imeetsq polnaq  operacion-"
   1 "MH1:  polnocennu`  operacionnu`"
   1 "MH1. Wy wweli komandu:":
   1 "MH1. Napi{ite komandu kopirowa-"
   1 "MH1 posle wypolneniq komandy":
   1 "MH0: w tolxko ~to  otformatiro-":
   1 "MH0: Wy wweli w sistemu komandu"
   1 "MH0. Kuda budet wywedeno soder-"
   1 "MH0.  Kuda budet  wywedeno  so-"
   1 "MESYATS,  ";:
   1 "MER, TELEWIZOROM ?"
   1 "MAX    ";:
   1 "MASSIV ?"
   1 "MASSIV ";:
   1 "MAND, FUNKCIJ.":
   1 "LET","W=FN","S(V)","EN"
   1 "LET","W=FN","K(V):","GO TO","18 ","EN"
   1 "LET","M=FN","W(R,D,Q) ","EN"
   1 "LET","M=12-N ","EN"
   1 "LET","HE","WRITE","EN":
   1 "LET","D=LEN","C$ ","EN"
   1 "LET","C$=A$+B$ ","EN"
   1 "LET X=X+1 ?"
   1 "LET X=2":
   1 "LET X=12","LET A=18","PRINT A","PRINT B","INPUT E","INPUT T","RETURN","GO SUB 1000","GO SUB 2100","NEXT J","NEXT M","GO TO 15","GO TO 28","STOP","FOR X=3 TO 10 STEP 2","FOR A=1
   1 "LET ","Y=SIN","(Z) ","EN"
   1 "Kto zatem okazywaetsq w budke?"
   1 "Kopirowanie programmy WOOT  dlq"
   1 "Komanda prinqta. Dalee Wy polu-"
   1 "Komanda  ";:
   1 "Kogda wypolnitsq operator ";:
   1 "Kogda programmist movet ispolx-"
   1 "Kazalosx by,  teperx  u  Was na"
   1 "Kaku` stroku udalitx-->";N
   1 "Kakowy imena argumentow funkcij":
   1 "Kakomu wremeni |to sootwetstwu-"
   1 "Kakomu widu bega sportsmena so-"
   1 "Kakoj smysl operatora  H=H+1  w"
   1 "Kakoj simwol kodiruetsq  ~islom"
   1 "Kakoj simwol kodiruetsq  w  \WM"
   1 "Kakoj operator |toj programmy i"
   1 "Kakoj operator zapisywaet fami-"
   1 "Kakoj operator s~itywaet perwoe"
   1 "Kakoj operator programmy uspe{-"
   1 "Kakoj operator programmy i  kak"
   1 "Kakoj operator programmy 'WOWA'":
   1 "Kakoj operator programmy ";:
   1 "Kakoj operator programmy  budet"
   1 "Kakoj operator nuvno dobawitx k"
   1 "Kakoj operator i kak nuvno  iz-"
   1 "Kakoj operator budet wypolnqtx-"
   1 "Kakoj operator \toj ve program-"
   1 "Kakoj operator  w  programme  i"
   1 "Kakoj operator  priswaiwaniq  w"
   1 "Kakoj nomer stroki pozicioniru-"
   1 "Kakoj mar{rut  u  kolesa, kogda"
   1 "Kakoj komandoj movno pereimeno-"
   1 "Kakoj iz operatorow |toj  prog-"
   1 "Kakoj fajl budet obrabatywatxsq"
   1 "Kakoj fajl budet  ~itatx  prog-"
   1 "Kakoj date |to sootwetstwuet na"
   1 "Kakoj apparat  ispolxzowalsq  w"
   1 "Kakoj  operator  nuvno dobawitx"
   1 "Kakoj  iz  operatorow programmy"
   1 "Kakoj  frazoj  movno   wyrazitx"
   1 "Kakoj  drugoj  operator  i  kak"
   1 "Kakoj    operator     programmy"
   1 "Kakogo tipa dannye mogut soder-"
   1 "Kakoe ~islo budet  nape~atano ?"
   1 "Kakoe zna~enie priswoetsq q~ej-"
   1 "Kakoe poslednee ~islo nape~ata-"
   1 "Kakoe iz sostoqnij Wy ispolxzu-"
   1 "Kakoe imq polu~it w itoge  sko-"
   1 "Kakoe \to budet ~islo?"
   1 "Kakoe  imq  polu~aet  fajl  #1,"
   1 "Kakoe  dejstwie  wypolnit  \WM,"
   1 "Kakim simwolom monitor  sistemy"
   1 "Kakim mestoimeniem movno  wyra-"
   1 "Kakim budet ~etwertoe dejstwie?"
   1 "Kakim  operatorom  w  programme"
   1 "Kakie ~isla nape~ataet |ta pro-"
   1 "Kakie ~isla nape~ataet \ta prog-":
   1 "Kakie ~isla nape~ata`t program-":
   1 "Kakie ~isla dolvny stoqtx wmes-"
   1 "Kakie zna~eniq budet  prinimatx"
   1 "Kakie tri ~isla nape~ataet  |ta"
   1 "Kakie tri ~isla  nape~ataet |ta programma?"
   1 "Kakie simwoly kodiru`tsq ~isla-"
   1 "Kakie operatory w |toj program-"
   1 "Kakie operatory w programme ";:
   1 "Kakie operatory programmy  cik-"
   1 "Kakie operatory cikli~eski po-"
   1 "Kakie operatory  dolvny  stoqtx"
   1 "Kakie nowye fajly  poqwqtsq  na"
   1 "Kakie fajly ostanutsq na diske-"
   1 "Kakie fajly ostanutsq  na  |toj"
   1 "Kakie fajly budut  na  |toj  ve"
   1 "Kakie fajly  ostanutsq na  dis-"
   1 "Kakie dwa otli~iq w  sintaksise"
   1 "Kakie  ~isla  sleduet priswoitx"
   1 "Kakie  fajly  budut na  diskete"
   1 "Kakie   operatory   powtorq`tsq"
   1 "Kakaq peremennaq  sootwetstwuet"
   1 "Kakaq komanda wypolnit  wyborku"
   1 "Kakaq informaciq, kasa`}aq, na-"
   1 "Kakaq bukwa sodervitsq w  q~ej-"
   1 "Kak |to otravaetsq na strukture"
   1 "Kak zawisit adres programmy za-"
   1 "Kak zapisatx  slowo  'teletajp'"
   1 "Kak wy~islitx sinus ot argumen-"
   1 "Kak wy dumaete, WA[":
   1 "Kak wy dumaete,  skolxko  q~eek"
   1 "Kak widno,  |tot"
   1 "Kak ve Wy budete nahoditx  nuv-"
   1 "Kak uznatx, dejstwitelxno li  w":
   1 "Kak sohranitx informaci` o sot-"
   1 "Kak sistema uznaet adres  fajla"
   1 "Kak nuvno izmenitx  operator  s"
   1 "Kak napisatx  na  qzyke  Bejsik":
   1 "Kak najti swedeniq o gostinicah"
   1 "Kak movet wyglqdetx kratkaq ko-"
   1 "Kak komandy raspoloveny w prog-":
   1 "Kak dolvna dejstwowatx \WM, wy-"
   1 "Kak budet wyglqdetx operator  s"
   1 "Kak budet wyglqdetx na  Bejsike"
   1 "Kak budet wyglqdetx komanda ko-"
   1 "Kak budet wyglqdetx  wyravenie,"
   1 "Kak budet po-anglijski  'inici-"
   1 "Kak budet po- anglijski  'Pe~a-":
   1 "Kak Wy polagaete, kakoj  opera-"
   1 "Kak Wy dumaete,  movet  li  pri"
   1 "Kak Wy dumaete,  imeetsq  li  w"
   1 "Kak Wy dumaete Wa{,":
   1 "Kak  uznatx,  dawno  li  sozdan"
   1 "Kak  skazatx  po-  anglijski":
   1 "Kak  razli~a`tsq  mevdu   soboj"
   1 "Kak  opredelitx  nali~ie w |tom"
   1 "Kak  nazywaetsq   ime`}ijsq  na"
   1 "Kak  nazwatx  po-anglijski  ko-"
   1 "Kak  by  Wy  nazwali pe~ata`]ee"
   1 "Kak  budet  po-anglijski  slowo"
   1 "Kak   nado   izmenitx  operator"
   1 "Kak   budet   wyglqdetx  {estaq"
   1 "KWARTAL-1   ";:
   1 "KROSS.SAV ";:
   1 "KROSS .SAV  11  19-Apr-89"
   1 "KOLTSO  ";:
   1 "KNIG'+";:
   1 "KAK WY DUMAETE,WA[":
   1 "K, izmenq`}emsq ot 0 do 6 s {a-"
   1 "K kakomu ~islu pribawlqetsq 1 ?"
   1 "K -nomer soldata."
   1 "K - okon~anie raboty":
   1 "Izwle~enie  segmenta"
   1 "Izwle~enie     segmenta"
   1 "Izwestny ob'emy sfer,  obrazau-"
   1 "Izu~ite zakonomernostx  izmene-"
   1 "Izmenim programmu:":
   1 "Iz slowarq: ";:
   1 "Iz sledu`}ego 'protokola', oto-"
   1 "Iz simwolxnogo predstawleniq  w"
   1 "Itak, wes obolo~ki = ";:
   1 "Itak,  nabor  zapisej na diske,"
   1 "Itak,  kopiruemaq  operacionnaq"
   1 "Isprawnaq   personalxnaq    \WM"
   1 "Ispolxzuq {ablon-frazu  ";:
   1 "Ishodnye dannye dlq q~eek A i W"
   1 "Imena kakih fajlow  poqwqtsq  w"
   1 "Imeetsq disketa MH0 so  sledu`-"
   1 "Imeetsq disketa  MH0.  Wwedq  w"
   1 "Imeem dwa operatora  iz  raznyh"
   1 "Imeem disketu  s  fajlami.  Kak"
   1 "Imeem disketu  MH0,  soderva}u`"
   1 "Imeem  posledowatelxnostx  dwuh"
   1 "Imeem  na   Bejsike   sledu`}u`"
   1 "Ime`tsq diskety MH0  i  MH1  so"
   1 "IZ ^EGO SOSTOIT PROGRAMMA DLQ":
   1 "INPUT","CO","k ","K ","EN"
   1 "INI","EN"
   1 "IMQ=BORIS ","EN"
   1 "IF.., ";:
   1 "I17.FAV B
   1 "HELP> ";:
   1 "H: 0, 1, 2, 3, 4 ?"
   1 "H, kogda wypolnitsq wtoroj ope-"
   1 "H,  kogda   wypolnitsq   tretij"
   1 "H(K),   gde  H(K)=";:
   1 "Gde  razme}aetsq  interpretator"
   1 "Gde  nuvno  postawitx  operator"
   1 "Gde  bibliotekarx  hranit   wse"
   1 "GUESS,   ";:
   1 "GO","TO ","SUB","ROUTINE ","EN"
   1 "GO TO- ";:
   1 "GO TO X":
   1 "GO TO 3,":
   1 "GO TO 10"
   1 "GO SUB 10     ";:
   1 "GO SUB   ";:
   1 "GO ","SUB ","EN"
   1 "GLAGOL ?"
   1 "Funkciq  ";:
   1 "Format  ukazatelq  (oglawleniq)"
   1 "Formalxno |to prawilxno,  no ne"
   1 "Fajl   ";:
   1 "FUNKCII:'":
   1 "FOUR  ";:
   1 "FOR........NEXT."
   1 "FOR,GOTO";:
   1 "FOR OUTPUT":
   1 "FOR OUTPUT AS FILE #3":
   1 "FOR OUTPUT AS FILE #3"
   1 "FOR OUTPUT AS FILE #1":
   1 "FOR INPUT AS FILE #3":
   1 "FOR INPUT ?"
   1 "F$, B$ ?"
   1 "F$(I) D(I) ?"
   1 "Estx li smysl wkl`~atx w oglaw-"
   1 "Esli pro~itali navmite na  WWOD"
   1 "Esli posle \togo  w  q~ejku 'H'"
   1 "Esli operator ";:
   1 "Esli kursor uka-"
   1 "Esli dlq pe~ati 1000 ~isel  na-"
   1 "Esli   |krannyj"
   1 "Emkostx  displeq - 24   stroki."
   1 "EXIT.     ":
   1 "ENTER),   ";:
   1 "EKRAN ";:
   1 "E (wostok) ili W (zapad):";d$
   1 "E ","F ","EN"
   1 "Dwa operatora: ";:
   1 "Dopustim, u Was estx magnitofon"
   1 "Dopustim, my wweli w  q~ejku  A"
   1 "Dopustim, Wy snimaete fotokopi`"
   1 "Dopustim,  funkciq   wy~isleniq"
   1 "Dolvny stoqtx operatory  wwoda:"
   1 "Dolgota (5 cifr):";d$
   1 "Dolgo li movet hranitxsq spisok"
   1 "Dobawim k poslednemu sodervimo-"
   1 "Dlq ~ego w dannoj programme is-"
   1 "Dlq wyhoda w monitor neobhodimo"
   1 "Dlq prosmotra spiska  komand  i"
   1 "Dlq prodolveniq navmite ";:
   1 "Dlq poqsneniq navmite na  ";:
   1 "Dlq kakogo wida  obrabotki  ot-"
   1 "Dlq ego  wwoda  neobhodimo  is-"
   1 "Dlq  ~ego  w   programmirowanii"
   1 "Dlq  ~ego  otkrywaet   operator"
   1 "Dlq  ~ego  nuvno  perehoditx  k"
   1 "Dlq  ~ego  numeru`t  stranicy w"
   1 "Dlq  zawer{eniq  s  sohraneniem"
   1 "Dlq  zawer{eniq  redaktirowaniq"
   1 "Dlq   wywoda   komandoj   ";:
   1 "Dlina   okruvnosti = 2*";:
   1 "Den|:",t'"Mesyc:",m'"God:",j
   1 "Data:";d$
   1 "Dalee wse programmy  priwodqtsq"
   1 "DX.SYS ?"
   1 "DX    .SYS    19   15-Jan-85"
   1 "DLQ ^EGO SLUVIT QZYK PROGRAMMI-":
   1 "DLINA OKRUVNOSTI'":
   1 "DLINA  ";:
   1 "DIRECTORY;  ";:
   1 "DIR","MX1:*.DAT ","EN"
   1 "DIR MX1:PROBA.*":
   1 "DIR MX1:PRO%%.DAT":
   1 "DIR MX1:PRO%%.DAT"
   1 "DIR MX1:PRO%%.*":
   1 "DIR MX1:,  ";:
   1 "DIR MX1:   ";:
   1 "DIR MX0:RO%IN.*":
   1 "DIR MX0:*.COM":
   1 "DIR MX0:*.COM"
   1 "DIM A(8)"
   1 "DIM A(8)  1     A=1"
   1 "DIM ","2 ","EN"
   1 "DELETE MX1:LIZA.*"
   1 "DELETE MX0:LISA.*":
   1 "DELETE MX0:*.COM"
   1 "DELETE ","THE ","SYMBOL ","Z","EN"
   1 "DELENIE'":
   1 "DEJSTWIQ:'":
   1 "DATE 15-Mar-89":
   1 "DAT,  ";:
   1 "DA ILI NET (D/N)-->";
   1 "DA ","EN"
   1 "D(I)- ";:
   1 "Cikli~eski  powtorq`tsq  opera-"
   1 "Celaq ~astx'H'rawna'K%":
   1 "CS" TO FIRST PAGE
   1 "COPY/SYS ... .":
   1 "COPY/BOOT MX0:MXMNSJ.SYS MX1:"
   1 "COPY, ";:
   1 "COPY MX1:REX.BAS MX0:REX1.BAS":
   1 "COPY MX1:REX.BAS MX0:":
   1 "COPY MX1:*.COM MX0:"
   1 "COPY MX0:*.* MX1:":
   1 "COPY MX0:*.* MX1:"
   1 "COPY MX0:*.* MX1:  ";:
   1 "COPY MX0:%%%A.COM MX1: ?"
   1 "COMMAND:, ";:
   1 "COMMAND:).":
   1 "COM, BAS,"
   1 "CIKL1 ";:
   1 "CHISLA ?"
   1 "CHILDREN"
   1 "CHILDREN   F$(I)-":
   1 "CENNIK,    ";:
   1 "CELYJ","CELOE","EN"
   1 "CAPS SHIFT"
   1 "CAPS SHIFT ";:
   1 "CAPS - SIMBOL"
   1 "CAPS  ";:
   1 "Bolx{ee ili menx{ee iz dwuh ~i-"
   1 "Blagodarq  kakomu  |lektronnomu"
   1 "Bejsike DWK stanowitsq ne  nuv-"
   1 "Bejsik-DWK, kogda \WM wykl`~ena"
   1 "Bejsik dlq \WM SEWER  i  DWK-3."
   1 "Bejsik \WM SEWER imeet 32 funk-"
   1 "BUKWENN","SIMWOLXN","LITERN","STROKOW","EN"
   1 "BORIS i MARIQ ?"
   1 "BASIC6-9"
   1 "B:BIORITM"
   1 "Awtor Fedorow":
   1 "Awtor Alekseew":
   1 "Aud","aud","AUDITORIQ","CO","6 ","EN"
   1 "AS FILE #1":
   1 "A8    .MAC     3   20-Apr-84"
   1 "A,  kogda  wypolnqet operator s"
   1 "A*A*A-(A-B)*(A-B)*(A-B)":
   1 "A kakie perwye  tri  ~isla  na-"
   1 "A i W ?":
   1 "A ","B ","EN"
   1 "<SECTION>":
   1 "<RESET>":
   1 "<REPLACE>, ";:
   1 "<HELP>  ";:
   1 "<FINDNEXT>.":
   1 "<ENTER>":
   1 "< -menx{e,    > -bolx{e)."
   1 ";t;" ";m$(m)(
   1 ";   - operatorow mevdu na~alom i   koncom cikla,obrazu`}ih telo    cikla."
   1 ";   - operatora konca cikla";:
   1 "9. ^to i kak preobrazuet  funk-"
   1 "9","GO TO","17 ","EN"
   1 "9 S=S*A":
   1 "9 READ X$":
   1 "9 READ M$":
   1 "9 PRINT Z":
   1 "9 PRINT Y":
   1 "9 PRINT #1,F$,D$":
   1 "9 OPEN 'POJAS3' FOR INPUT AS FILE #1":
   1 "9 GO TO 16":
   1 "9 FOR K=1 TO 50 STEP 1"
   1 "9 .......":
   1 "9 ","PRINT #1,F$,D$ ","EN"
   1 "8 STOP          8 STOP":
   1 "8 RESTORE K+1":
   1 "8 READ M$":
   1 "8 PRINT '3 -";:
   1 "8 OPEN F$ FOR INPUT AS FILE #2":
   1 "8 NEXT X":
   1 "8 LET Z=X(M)+X(N)":
   1 "8 LET S=S+X*X":
   1 "8 INPUT A,B":
   1 "8 INPUT A":
   1 "8 IF X<3 
   1 "8 IF N=3 THEN GO TO 9"
   1 "8 GOTO 10"
   1 "8 D$=STR$(D)":
   1 "8 ","1 ","EN"
   1 "7. Zamena.":
   1 "7. Razmery buferow.":
   1 "7 S=S+D":
   1 "7 READ M$":
   1 "7 PRINT X":
   1 "7 PRINT TAB 10; 7 PRINT TAB(10)"
   1 "7 PRINT T$":
   1 "7 PRINT K%' ";:
   1 "7 PRINT K":
   1 "7 PRINT D$":
   1 "7 PRINT A":
   1 "7 PRINT 'BEC=';M":
   1 "7 PRINT '2 -";:
   1 "7 PRINT ";:
   1 "7 OPEN 'POJAS2' FOR INPUT AS FILE #1":
   1 "7 NEXT L":
   1 "7 NEXT K":
   1 "7 LET Z=Y(1)+Y(2)":
   1 "7 LET Z=X(M)+4":
   1 "7 LET X=X+1":
   1 "7 LET N=2":
   1 "7 LET L=2"
   1 "7 KNIG ","EN"
   1 "7 K%=K%+D(I)":
   1 "7 INPUT K":
   1 "7 INPUT F$,D":
   1 "7 IF X<8 THEN GOTO 4":
   1 "7 IF X<10 THEN GOTO 4":
   1 "7 IF N=2 THEN GO TO 10":
   1 "7 IF K<20 THEN GO TO 3":
   1 "7 F$='MART.DAT'":
   1 "7 ","CO","9 ","EN":
   1 "60 PRINT '";:
   1 "60 .......":
   1 "6. Pereme}enie,  kopirowanie  i":
   1 "6. Funkcionalxnye klawi{i <SU>.":
   1 "6","LET","Z=X(3)+X(4) ","EN"
   1 "6","GO TO","M ","EN"
   1 "6 PRINT Z":
   1 "6 PRINT X,Y":
   1 "6 PRINT X(8)":
   1 "6 PRINT X(5)      X(6)->36"
   1 "6 PRINT S"
   1 "6 PRINT D$":
   1 "6 PRINT C$":
   1 "6 PRINT '4-ctg'":
   1 "6 PRINT '17-";:
   1 "6 PRINT '1 -";:
   1 "6 ON N GOTO 11,10,9":
   1 "6 NEXT M":
   1 "6 NEXT I        6 NEXT I"
   1 "6 LET Z=X(1)+X(2)+X(3)":
   1 "6 LET Z=X(1)+X(2)":
   1 "6 LET X=2":
   1 "6 LET T$=
   1 "6 LET P=S-C":
   1 "6 LET C$=A$+B$":
   1 "6 INPUT Y(2)":
   1 "6 INPUT F$(I),D(I)":
   1 "6 IF... ,   7 IF... ,   8 IF...":
   1 "6 IF N=1 THEN GO TO 11":
   1 "6 IF K%=1 THEN V$='A'":
   1 "6 IF A$=B$ 
   1 "6 GOTO 10"
   1 "6 GO TO R"
   1 "6 GO TO M":
   1 "6 GO TO M"
   1 "6 F$='FEVR.DAT'\ GOTO 8":
   1 "6 D=VAL(D$)":
   1 "6 -wyhod iz redaktora"
   1 "6 ","IF ","X<8 ","THEN ","GOTO ","4 ","EN"
   1 "6 ","7 ","8 ","EN"
   1 "59 PRINT #3,V$":
   1 "58 PRINT #2,V$\ GOTO 60":
   1 "57 PRINT #1,V$\ GOTO 60":
   1 "56 ON C GOTO 57,58,59"
   1 "55 READ C":
   1 "54 READ C":
   1 "53 READ C":
   1 "52 ON K GOTO 55,54,53":
   1 "51 INPUT K":
   1 "500 m.  Kak  sportsmen  re[aet,"
   1 "50 PRINT '";:
   1 "50 NEXT I":
   1 "5. Zadanie  segmenta redaktiro-":
   1 "5. Komandy operatora.":
   1 "5","GO","SUB","10 ","EN"
   1 "5 Wy~islqtx  M  po podprogramme":
   1 "5 STOP         5 STOP"
   1 "5 Perejti na operator 3":
   1 "5 PRINY X":
   1 "5 PRINT Y":
   1 "5 PRINT X,Y":
   1 "5 PRINT X,X,Z":
   1 "5 PRINT X  ";:
   1 "5 PRINT SEG$(S$(1),1,6)":
   1 "5 PRINT K%'-";:
   1 "5 PRINT K":
   1 "5 PRINT D$":
   1 "5 PRINT ..."
   1 "5 PRINT '3-tg'":
   1 "5 PRINT ";:
   1 "5 OPEN 'POJAS1' FOR INPUT AS FILE #1":
   1 "5 NEXT K          X(5)->25"
   1 "5 NEXT C":
   1 "5 LET Z=Y+X       Z->?":
   1 "5 LET Z=X(1)+X(2)":
   1 "5 LET Z=K+7":
   1 "5 LET Y=Y+X*X":
   1 "5 LET Y=Y+
   1 "5 LET X=X+2":
   1 "5 LET X(3)=20":
   1 "5 LET S=S+I*I   5 S=S+I*I"
   1 "5 LET R=10-K":
   1 "5 LET K=K*X":
   1 "5 LET D$=C$(K
   1 "5 LET D$=C$(3
   1 "5 INPUT R,D,Q":
   1 "5 INPUT B$":
   1 "5 INPUT #3,F$,D$":
   1 "5 IF X<10 THEN GOTO 3":
   1 "5 IF K<40 THEN GO TO 3":
   1 "5 IF K<10 THEN GO TO 3":
   1 "5 IF K%<5 THEN V$='";:
   1 "5 GOTO 3":
   1 "5 GOTO 2":
   1 "5 GO TO X"
   1 "5 FOR I=1 TO N":
   1 "5 FOR I=1 TO 10":
   1 "5 F$='JANV.DAT'\ GOTO 8":
   1 "5 DATA '";:
   1 "5 -zamena stroki":
   1 "5 ","IF ","X<8 ","THEN ","GOTO ","3 ","EN"
   1 "5 ","CO","7 ","EN":
   1 "5 ","8 ","EN"
   1 "5 ","6 ","7 ","EN"
   1 "49 DATA 1,2,3":
   1 "49 ","EN"
   1 "480 ","EN"
   1 "48 INPUT V$":
   1 "413 Free blocks":
   1 "40 strok. Kakie stro~ki okavut-"
   1 "40 S=S+X":
   1 "4. Obzor funkcij.":
   1 "4. Iskl`~enie i  wosstanowlenie":
   1 "4 V$=''":
   1 "4 STOP         4 STOP":
   1 "4 STOP         4 PRINT Z"
   1 "4 S$(2)='2-";:
   1 "4 READ A$":
   1 "4 READ A$"
   1 "4 PRINT Z,X":
   1 "4 PRINT Y"
   1 "4 PRINT X      4 PRINT X,X"
   1 "4 PRINT V":
   1 "4 PRINT R$":
   1 "4 PRINT C":
   1 "4 PRINT A$":
   1 "4 PRINT '2-cos'":
   1 "4 PRINT '15-";:
   1 "4 PRINT #1, A,K,C"
   1 "4 OPEN 'SPISOK' FOR OUTPUT":
   1 "4 ON N GOTO 5,7,9":
   1 "4 ON K GOTO 5,6,7":
   1 "4 LET Z=X+X":
   1 "4 LET Y=X+5       Y->?":
   1 "4 LET Y=5*X+3":
   1 "4 LET Y=4*K+1":
   1 "4 LET Y=2*X":
   1 "4 LET X=X+1"
   1 "4 LET X=K+5":
   1 "4 LET X=K*K":
   1 "4 LET X(K)=SIN(K)":
   1 "4 LET X(K)=K*K    X(4)->16"
   1 "4 LET D$='4'+'5'":
   1 "4 LET C$=A$(1
   1 "4 LET C$='KAROLINA'":
   1 "4 LET B$=A$(R)":
   1 "4 KNIGI ","EN"
   1 "4 K%=INT(X)":
   1 "4 INPUT Y(1)"
   1 "4 INPUT R":
   1 "4 INPUT K":
   1 "4 FOR X=0 TO 4*
   1 "4 FOR I=1 TO 10":
   1 "4 FOR I=1 TO 10 4 FOR I=1 TO 10"
   1 "4 F=13.16":
   1 "4 DATA '";:
   1 "4 C$=A$+'O'+B$":
   1 "4 -udalenie stroki":
   1 "4 ","STOP ","EN":
   1 "4 ","CO","6 ","EN":
   1 "4 ","4 ","8 ","EN"
   1 "365*j+t+31*(m-1)":
   1 "300 ","EN"
   1 "30 INPUT X":
   1 "30 ","20 ","EN"
   1 "3. Pereme}enie kursora po stra-":
   1 "3. Funkcionalxnye klawi{i,  is-"
   1 "3) Pustx H<--8":
   1 "3) Pustx H<--8     3 ...":
   1 "3","READ","A$ ","EN"
   1 "3","LET","Z=Z+2 ","EN"
   1 "3","LET","X","=","8","EN":
   1 "3 WWOD W":
   1 "3 S$(1)='1-";:
   1 "3 PRINT Z      3 PRINT Z"
   1 "3 PRINT Z      3 LET X=2+4"
   1 "3 PRINT X":
   1 "3 PRINT D$":
   1 "3 PRINT A$(2)":
   1 "3 PRINT ... ,    ";:
   1 "3 PRINT '14-";:
   1 "3 PRINT '1-sin'":
   1 "3 PRINT #1, A,B,C":
   1 "3 LET Z=5+2":
   1 "3 LET Y=0":
   1 "3 LET X=2*2":
   1 "3 LET X=2      3 LET X=2"
   1 "3 LET X=1         X->?":
   1 "3 LET X(1)=5":
   1 "3 LET X(1)=10":
   1 "3 LET S=0       3 S=0"
   1 "3 LET R=3":
   1 "3 LET R$=
   1 "3 LET L=":
   1 "3 LET K=K+3":
   1 "3 LET K=0":
   1 "3 LET B=4.7":
   1 "3 LET B=(3.724*5.327+14.017)*11.597":
   1 "3 LET B$=A$(4
   1 "3 LET B$=A$(2
   1 "3 LET B$=A$(1)":
   1 "3 LET B$='WOZ'":
   1 "3 LET B$='WORD'":
   1 "3 LET B$='RAN'":
   1 "3 LET A=2: LET B=1.5":
   1 "3 INPUT X":
   1 "3 INPUT N":
   1 "3 INPUT K%":
   1 "3 INPUT A$":
   1 "3 FOR K=2 TO 8 STEP 2":
   1 "3 FOR K=1 TO 8 STEP 2":
   1 "3 FOR K=1 TO 8    X(3)->9"
   1 "3 FOR K=... TO ... STEP ...":
   1 "3 FOR C=1 TO 60 STEP 1":
   1 "3 B$=SEG$(A$,1,5)":
   1 "3 B$=F$+'A'":
   1 "3 B$='";:
   1 "3 -wstawka stroki":
   1 "3 -ob'em sfery                 ":
   1 "3 (Wwod ~ise w q~ejki A i W)":
   1 "3 ","TRI ","CO","2 ","DWE ","EN"
   1 "3 ","PRINT ","K ","EN"
   1 "3 ","LET ","X=X+3 ","EN"
   1 "3 ","LET ","X=X+2 ","EN"
   1 "3 ","LET ","K=1 ","EN"
   1 "3 ","IF ","X<10","THEN ","GOTO ","3 ","EN"
   1 "3 ","4 ","5 ","EN"
   1 "3 ","4 ","5 ","6 ","7 ","EN"
   1 "3 ","4 ","3 ","4 ","5","EN"
   1 "27 ","EN"
   1 "25 ","EN"
   1 "23678",y1
   1 "23677",o^h:
   1 "23658",q:
   1 "23","7","28","3","33","1"
   1 "21";"roq:";j:
   1 "20, a w q~ejku W 10.  Operatory"
   1 "20 PRINT Y$":
   1 "20 FOR I=1 TO 10":
   1 "20 ","3 ","EN"
   1 "20 ","10 ","EN"
   1 "2. Wyhod iz redaktora.":
   1 "2. Uslowiq  primeneniq  i  pusk"
   1 "2. Komandy opredeleniq  stranic"
   1 "2. Funkciq <";:
   1 "2, 4, 6, 8 ?"
   1 "2, 3, 4, 5, ...?"
   1 "2) revim  bez   podskazki  (bez"
   1 "2) Pustx H<--5":
   1 "2) Pustx H<--5     ";:
   1 "2","FOR","K=2","TO","8","STEP","2 ","EN"
   1 "2","FOR","K=1","TO","20","STEP","1 ","EN"
   1 "2 X$='BEC '":
   1 "2 WWOD A":
   1 "2 T=134255":
   1 "2 PRINT'";:
   1 "2 PRINT 'NUMBER ?'":
   1 "2 PRINT ";:
   1 "2 OPEN 'SPISOK.DAT'":
   1 "2 OPEN 'SPISOK'FOR OUTPUT":
   1 "2 OPEN 'SPISOK' FOR INPUT":
   1 "2 LET Z=2+3    2 LET Z=1+8-2"
   1 "2 LET Z=1+5    2 LET Z=1+8-2"
   1 "2 LET Z=1 ";:
   1 "2 LET Z=0":
   1 "2 LET Z=0"
   1 "2 LET Y=0":
   1 "2 LET X=144":
   1 "2 LET X=1+3+5":
   1 "2 LET X=1      2 LET X=1"
   1 "2 LET X=1       X->
   1 "2 LET X=0.5":
   1 "2 LET X=0";:
   1 "2 LET R=10: LET D=0.3":
   1 "2 LET L=1":
   1 "2 LET K=10":
   1 "2 LET K=1+5":
   1 "2 LET K=":
   1 "2 LET D$=
   1 "2 LET C=4+5":
   1 "2 LET A=6":
   1 "2 LET A=4.8 ?"
   1 "2 LET A=4.3":
   1 "2 LET A=4":
   1 "2 LET A=(3.1415*6.1792+13.925)*11.626":
   1 "2 LET A$='STRONCIJ'":
   1 "2 LET A$='PARO'":
   1 "2 LET A$='LONDON'":
   1 "2 LET A$='KROSS'":
   1 "2 LET A$='KPOCC'":
   1 "2 LET A$='GLAGOL'":
   1 "2 LET A$='EK'":
   1 "2 LET A$='456'":
   1 "2 Files,  19 Blocks"
   1 "2 FOR M=1 TO 5 STEP 1":
   1 "2 FOR L=1 TO 100 STEP 1"
   1 "2 FOR K=1 TO 50 STEP 1":
   1 "2 FOR K=1 TO 20 STEP 0"
   1 "2 FOR K=1 TO 10 STEP 2":
   1 "2 DIM Y(4)":
   1 "2 DIM X(8)        X(2)->4"
   1 "2 DIM X(3)":
   1 "2 DIM X(20)":
   1 "2 DIM X(2)":
   1 "2 DIM X(10)     2 DIM X(10)"
   1 "2 DIM S$(2)":
   1 "2 DEF ... ?"
   1 "2 -poisk  stroki  po  fragmentu"
   1 "2 -plo}adx kruga               "
   1 "2 ","LET ","X=10 ","EN"
   1 "2 ","LET ","K","=","1","+","5 ","EN":
   1 "2 ","3 ","5 ","EN"
   1 "2 ","2 ","2 ","EN"
   1 "18 PRINT '";:
   1 "17","LET","C=A/B",":","RETURN ","EN"
   1 "16-UMNOVENIE'":
   1 "16","LET","C=TAN ","A",":","RETURN ","EN"
   1 "16","LET","C=A*B",":","RETURN ","EN"
   1 "15",e;"3. Ka
   1 "15","MAR","89","EN"
   1 "15","LET","C=A-B",":","RETURN ","EN"
   1 "15 IF K<X 
   1 "14 sentqbrq w 17:00 bytx u Iwa-":
   1 "14 LET M=M*X":
   1 "14 GO TO B":
   1 "13",e;"2. Cocmo
   1 "13",b+h;m$(i+e):
   1 "13"+a,e;w$(a):
   1 "13 LET K=K+1":
   1 "13 LET B=D+14":
   1 "13 .......":
   1 "12 OPEN Y$ FOR OUTPUT AS FILE #1":
   1 "12 LET K=0":
   1 "12 INPUT D":
   1 "12   Ubevi}e.Arest.Vertwy."
   1 "11","35","45","EN"
   1 "11 Y$=SEG$(S$(2),7,10)+'.DAT'":
   1 "11 S=S*A":
   1 "11 PRINT '";:
   1 "11 NEXT K":
   1 "11 LET M=1":
   1 "11 GO SUB D":
   1 "11 GO SUB 13+D":
   1 "11 CLOSE #1":
   1 "11   Druvba i ob}estwo."
   1 "100RQDOW":
   1 "100 rqdow ({ereng) po 50 soldat"
   1 "100 ","EN"
   1 "100 ","5000 ","EN"
   1 "10 Y$=SEG$(S$(1),7,10)+'.DAT'\ GOTO 12":
   1 "10 Y$=SEG$(S$(1),7,10)+'
   1 "10 Y$=CLK$":
   1 "10 STOP":
   1 "10 S=S*A":
   1 "10 REM SUBROUTINE":
   1 "10 PRINT X$":
   1 "10 PRINT M$":
   1 "10 PRINT K%' ";:
   1 "10 NEXT I":
   1 "10 INPUT V"
   1 "10 CLOSE #3":
   1 "10 ","9 ","EN"
   1 "10   Ob}estwennye processy.          Karxera.Dostiveniq."
   1 "1. Zapusk |krannogo redaktora.":
   1 "1. Nazna~enie.":
   1 "1. Komandy dlq raboty so  wspo-"
   1 "1. Funkciq <";:
   1 "1-zima","1-ZIMA ","EN"
   1 "1-J WES = 13.16 KG ","EN"
   1 "1, 2, 3, 4, ...":
   1 "1) revim s podskazkoj-w werhnem"
   1 "1) Pustx H<--0":
   1 "1) Pustx H<--0     ";:
   1 "1","2","3","4","5","6","7","8","9","10","EN"
   1 "1 delenie?"
   1 "1 REM ZIKL5":
   1 "1 REM ZIKL3":
   1 "1 REM ZIKL1":
   1 "1 REM WYBOR":
   1 "1 REM WES":
   1 "1 REM WEEK":
   1 "1 REM VVOD":
   1 "1 REM VOZVRAT":
   1 "1 REM VOVA":
   1 "1 REM VOVA     1 REM LENA"
   1 "1 REM VES":
   1 "1 REM VALUE":
   1 "1 REM V":
   1 "1 REM UP":
   1 "1 REM TWO":
   1 "1 REM Summa":
   1 "1 REM SYMBOLS":
   1 "1 REM SUM":
   1 "1 REM STUDENT":
   1 "1 REM STRONCIJ":
   1 "1 REM STRING":
   1 "1 REM STEPEN: LET S=1":
   1 "1 REM STEPEN1: LET S=1":
   1 "1 REM STEPEN-SEVER: LET S=1":
   1 "1 REM STEPEN-DVK\ S=1":
   1 "1 REM SQUIRREL":
   1 "1 REM SEZON":
   1 "1 REM SEVER     1 REM DVK"    
   1 "1 REM SEGMENT":
   1 "1 REM Red":
   1 "1 REM RIGHT":
   1 "1 REM RAROWOZ":
   1 "1 REM PROGRAMMA":
   1 "1 REM PR2":
   1 "1 REM PR10":
   1 "1 REM PLUS":
   1 "1 REM PHONE":
   1 "1 REM PETROV":
   1 "1 REM NUMBERS":
   1 "1 REM NAME2":
   1 "1 REM NAME":
   1 "1 REM NABOR":
   1 "1 REM Mult":
   1 "1 REM MIN":
   1 "1 REM MESYATS":
   1 "1 REM MASSIV      X(1)->1"
   1 "1 REM Lena";:
   1 "1 REM Lena":
   1 "1 REM LONDON":
   1 "1 REM LETTER":
   1 "1 REM LENGHT":
   1 "1 REM KWARTAL-1":
   1 "1 REM KRUG":
   1 "1 REM KOLTSO":
   1 "1 REM KALK":
   1 "1 REM KADRY- ";:
   1 "1 REM JOIN":
   1 "1 REM ITOG":
   1 "1 REM GUESS":
   1 "1 REM GLAGOL":
   1 "1 REM G":
   1 "1 REM FUNKCII":
   1 "1 REM FUNK":
   1 "1 REM ERR":
   1 "1 REM EKRAN":
   1 "1 REM DWA":
   1 "1 REM DVK":
   1 "1 REM DLINA":
   1 "1 REM COPMPARE":
   1 "1 REM CLOCK":
   1 "1 REM CIKL1":
   1 "1 REM CIKL":
   1 "1 REM CHISLA":
   1 "1 REM CHILDREN- ";:
   1 "1 REM CHILDREN":
   1 "1 REM CHAR":
   1 "1 REM CENNIK":
   1 "1 REM BOOK":
   1 "1 REM BOBA":
   1 "1 REM BEG":
   1 "1 REM A1":
   1 "1 REM A":
   1 "1 LET X=0":
   1 "1 -prodolvenie nabora":
   1 "1 -dlina okruvnosti            "
   1 "1 ","6 ","7 ","EN"
   1 "1 ","5 ","32 ","EN"
   1 "1 ","3 ","6 ","EN"
   1 "1 ","3 ","5 ","1 ","4 ","7 ","EN"
   1 "1 ","2 ","3 ","4 ","EN"
   1 "0","6","0.3 ","EN"
   1 "0 -wyhod iz l`bogo revima":
   1 "///NE WERNO///"
   1 ".~islo,kotoroe wy wwedete budet priswoeno peremennoj 
   1 ".primer:" 
   1 ".poka kompx`ter 
   1 ".kavdyj operator";:
   1 ".TYPE MX1:REX.BAS":
   1 ".SAV).   ";:
   1 ".REN MX0:REX.BAS MX0:REX1.BAS"
   1 ".R K52       ";:
   1 ".COPY MX1:REX.BAS MX0:REX1.BAS"
   1 ".COPY MX1:REX.BAS MX0:"
   1 "............! 60 m."
   1 ".......":
   1 ".                                                  
   1 "-wyraveniq razdelq`t-sq zapqtymi,to oni budut wywoditsq w dwa stolbika(w lewoj i pra-woj polowinah |krana)."
   1 "-wyraveniem,ono razde-lqetsq zapqtymi ili to~koj s za-pqtoj,nazywaemymi";:
   1 "-wyravenie budet nape~atano s na~a-la sledu`}ej stroki."
   1 "-wyravenie budet nape~ata- no wplotnu` s predydu}im .":
   1 "-tol}ina obolo~ki.":
   1 "-radius sfery,":
   1 "-operator perehoda k  stroke s nomerom ";:
   1 "-istinnoe ili lovnoe wyravenie";:
   1 "-dlq kl`~ewyh slow(komand).   |tot revim awtomati~eski smenqet revim ";:
   1 "-Wosstanowlenie sodervimogo |k-"
   1 "-KYPCOP ";:
   1 "-Esli o{ibki ne bylo,to na dis-"
   1 "-Esli byla o{ibka,  to pri  is-"
   1 "- |to matemati~es-kaq funkciq.i argument i rezulx-tat ee ~islowye.rezulxtat rawen: 
   1 "- parametry wwoda i  wywoda.naprimer:"
   1 "- Otmena funkcii <";:
   1 ",wyzywa`}ie    drugie podprogrammy.takie podprogrammy nazywa`tsq 
   1 ",w protiwnom slu~ae oni propuska`tsq i wypolnenie programmyprodolvaetsq so sledu`}ego operatora."
   1 ",t.e. proishodit wyhod iz cikla" 
   1 ",kotoryj      wyzwal |tu podprogrammu."
   1 ",kogda blok dannyh is~erpan,pri-wedet k o{ibke.operator";:
   1 ",ili posle ':'.":
   1 ",i sostoq}ie  iz bukw i cifr:";:
   1 ","GO TO 130","GO TO 5","CLS","CLS","LIST","LIST","LET B=A","PRINT W","RETURN","NEXT R","LET Z=X"
   1 ", to |ta komandawypolnqtsq ne budet,ona wwedetsqw pamqtx kompx`tera kak stroka  programmy."
   1 ", kotoryj sodervit spisok peremen-nyh,razdelennyh zapqtymi:"
   1 ", i wse opera- tory tela cikla wypolnq`tsq      powtorno.";:
   1 "+-------------------+---------+"
   1 "*- Umnovenie.":
   1 "* -znak umnoveniq":
   1 "(t.e. fajlow,soderva}ih komandy"
   1 "(sozdannyj odnoj iz  programm)?"
   1 "(prevnee) sodervanie q~ejki  H,"
   1 "(nomerami) 3 i 4, to estx obes-"
   1 "(nazowem ee uslowno H), w koto-"
   1 "(iz  diapazona  48 - 59)  budet"
   1 "(i delitelx)?"
   1 "(Print)?"
   1 "(Magnetic  Tape)   ";:
   1 "(2.6*m1-.1)":
   1 "(2 gradusa 3 minuty = 00203)"
   1 "(18-n)*8+3":
   1 "(...+H...+H*H...+H*H*H...)":
   1 "'wozwrat  na  sledu`}ij"
   1 "'protokol' raboty \WM:":
   1 "'perjti k...'"
   1 "'pereimenowatx'."
   1 "'kolxca' mevdu |timi  okruvnos-"
   1 "'belka w kolese'. Napi{ite fra-"
   1 "'ZIKL' ?"
   1 "'X$'= 'F' ";:
   1 "'Wwedite zna~eniq A i W'":
   1 "'SUMMA' ?"
   1 "'Pustx on pi[et'?":
   1 "'PETROW'":
   1 "'OPEN' ";:
   1 "'Lena'";:
   1 "'LENA' ?"
   1 "'H'.   Kogda  komanda  posylaet "
   1 "'FOUR' ?"
   1 "'Auditoriq 6'":
   1 "'Auditoriq 5'":
   1 "''" 4. TRDOS"''''''''"
   1 "' '.                            ":
   1 "$ -(w  perwoj  pozicii wwodimoj"
   1 "#2). Fajl- |to hranili}e nabora"
   1 ""zwuk.cweta,grafika."" ":
   1 ""imq programmy"" 
   1 """wwedi ~islo""";:
   1 """werno"":";:
   1 " ~to dast 3*6=18 indeksiruemyh  peremennyh:":
   1 " ~isla w operatorah ";:
   1 " ~isla mogut bytx polovitelxnymii otricatelxnymi: 
   1 " ~ertit     lini` ot predydu}ej PLOT-poziciih,u-|to prira}eniq koordinat.":
   1 " |tot porqdok wy~islenij movno  izmenitx s pomo}x` skobok:wyravenie w skobkah wy~islqetsq perwym":
   1 " |tot parametr pereme}aet pozi- ci` wywoda w ukazannyj stolbec  na toj ve stroke,ili perehodit  na nowu` stroku,esli stolbec bylposlednim."
   1 " |tot operator wy~islqet i wywo-dit na |kran summu kosinusa  i  sinusa.":
   1 " |kran sodervit 22 stroki po 32 simwola w kavdoj,~to sostawlqet 22*32=704 simwolxnye pozicii.    kavdaq simwolxnaq poziciq pred-stawlqetsq kwadratom 8*8 to~ek, nazywaemyh pikselami.            piksel zadaetsq dwumq koordina-tami: H-udalenie ot lewoj grani-cy |krana,U-udalenie ot nivnej  granicy |krana(w pikselah)."
   1 " zna~eniq peremennyh movno izme-nitx s pomo}x` operatora priswa-iwaniq,w kotorom zada`tsq imq peremennoj i priswaiwaemoe zna~e- nie.~islo operatorow priswaiwa- niq rawno ~islu peremennyh.~em  bolx{e w programme peremennyh,  tem bolx{e operatorow na~alxnogopriswaiwaniq zna~enij.dlq sokra-}eniq ob'ema programmy i udob-  stwa wneseniq izmeneniq w na~alxnye zna~eniq peremennyh ime`tsq sredstwa raboty s blokom dannyh."
   1 " zna~eniq not odnoj oktawy:      
   1 " zadaet revim  mercaniq: 0-mercanie wykl`~eno, 1-mercanie wkl`~eno."
   1 " wy~islqet korenx kwadratnyj ot ~isla:";:
   1 " wy~islq`tsq w wyravenii slewa naprawo i ime`t urowenx star{instwa,menx{ij, ~em arifmeti~eskie operacii i   operacii otno{eniq,t.e.wypolnq`tsq w posledn`` o~eredx.operaciq";:
   1 " wyswe~iwaetzakra{iwa`}im cwetom piksel s   ukazannymi koordinatami.":
   1 " wypolnqq |tot operator kompx`- ter wywedet na |kran(w nivnej   ~asti)wopros,w otwet ";
   1 " wy movete sami opredelitx funk-ci`,ukazaw";:
   1 " wwodit razli~-nye zna~eniq s klawiatury i pri-swaiwaet ih peremennym.|tot ope-rator,kak i operator 
   1 " woznikaet posle navatiq klawi{i ":
   1 " wmesto kavdoj iz odinakowyh posledowatelxnostej operatorow zapisywa`t po odnomu operatoru wyzo-wa podprogrammy:                         ";:
   1 " wmesto imeni movno ukazatx      pustu` stroku,togda budet wzqt  perwyj wstretiw{ijsq fajl."
   1 " wlewo - ";:
   1 " w |tom primere programma budet wypolnqtsq skolxko ugodno dolgo. posle stroki 40 budet wypolnqt-sq stroka 30,zatem stroka 40,   zatem snowa stroka 30 i t.d.    zdesx pokazan primer beskone~no-go zacikliwaniq programmy."
   1 " w |toj":
   1 " w tojve posledowatelxnosti obrazu`t  blok dannyh. operatory:"
   1 " w stroke 50 nahoditsq operator ";:
   1 " w stroke 10 peremennoj s priswaiwaetsq zna~enie rawnoe 234.t.e.posle wypolneniq stroki 10 teku-}ee zna~enie s rawno 234.        w stroke 20 iz teku}ego zna~e- niq s wy~itaetsq 4 i polu~ennoe zna~enie priswaiwaetsq peremen- noj s t.e. iz 234 wy~itaetsq 4 irezulxtat,rawnyj 230 priswaiwaetsq peremennoj s.takim obrazom   posle wypolneniq stroki 20 teku-}ee zna~enie peremennoj s stano-witsq rawnym 230."
   1 " w rezulxtate na |kran budet wy-wedeno ~islo 
   1 " w prawoj ~asti operatora priswaiwaniq movet bytx l`boe wy~islqemoe wyravenie,glawnoe-~toby wse peremennye w wyravenii byli opredeleny do togo kak oni budut    ispolxzowany w wyravenii." 
   1 " w l`bom  meste programmy:                 ";:
   1 " w kompx`tere ime`tsq trigonometri~eskie funkcii:             ";:
   1 " w ka~estwe uprawlq`}ej peremen-noj cikla nelxzq ispolxzowatx   indeksiruemu` peremennu`(|lementmassiwa)."
   1 " w bejsike movno rabotatx i s   drobnymi ~islami.drobnaq ~astx  zapisywaetsq w wide desqti~noj  drobi,pri~em celaq i drobnaq ~asti otdelq`tsq ne zapqtoj,kak |tooby~no prinqto,a 
   1 " udalqet simwolnahodq}ijsq slewa ot kursora.":
   1 " to estx 5 indeksiruemyh peremennyh: w(1),w(2)...,w(5).sledu`}aqprogramma pokazywaet e}e odno   preimu}estwo massiwow:":
   1 " teperx perejdem k osnowam qzykabejsik.":
   1 " teperx ostanowimsq na komandah            BEJSIKA.              po komande";:
   1 " takim sposobom movno wy~islqtx i bolee slovnye wyraveniq,w tom ~isle i wse |lementarnye matema-ti~eskie funkcii.                
   1 " t.e.sledu`}ejbudet wypolnqtsq stroka program-my s nomerom ";:
   1 " stroka, nabrannaq w nivnej ~asti |krana,libo  wypolnqetsq kak komanda (esli   ona bez nomera),libo wwoditsq   kak o~erednaq stroka w programmu,libo ispolxzuetsq kak spisok   dannyh dlq wwoda.esli ve ona  sodervit sintaksi~eskie o{ibki,to o{ibo~noe mesto ukazywaetsq  merca`}im znakom 
   1 " stroka 40 srawniwaet ~isla a,w i esli oni rawny-zawer{aet rabo-tu,wypolnqq komandu ";:
   1 " sluvit dlq pe~a-ti teksta programmy na |krane.  pe~atx na~inaetsq s perwoj  stroki po porqdku.";
   1 " slowo";:
   1 " sformiru`t blok dannyh iz {esti~isel: 1,2,-5e-1,0,-3,5.operato-ry";:
   1 " s drugimi klawi{ami w revime kursora 
   1 " s     koordinatami ee centra H,U.":
   1 " prowerqet zna~e- niq dwuh swoih operandow.esli   oba operanda rawny 0,to rezulx- tat operacii rawen 0.w protiwnom slu~ae on otli~en ot 0."
   1 " prostej{im uslowiem movet bytx srawnenie dwuh ~isel.~isla mogut bytx libo rawny,libo odno bolx-{e drugogo.":
   1 " proizwodit o~istku |krana i ustanawliwaet";:
   1 " proizwodit inwersi` zna~eniq peremen-
   1 " proishodit pereda~a uprawleniq operatoru sledu`}emu srazu za   operatorom";:
   1 " programma zapi{etsq na lentu   tak,~to kogda ona budet wnowx   s~itana po komande";:
   1 " prodolvaet   wypolnenie ostanowlennoj programmy.komanda";:
   1 " prodemonstriruem rabotu operatora";:
   1 " priwodit k wwodu wspomogatelxnogo simwola,nanesennogo na klawi{u rqdom s  bukwoj,";
   1 " priwodit k smene  kursora ";:
   1 " priwedet k o{ibke.":
   1 " priwedet k      o{ibke.":
   1 " print-";:
   1 " primer ispolxzowaniq operatora";:
   1 " pri pomo}i";:
   1 " pri napisanii programmy movet  
   1 " prerywaet wypolnenie programmy.po |toj komande prekra}aetsq wypolnenie program-my i wydaetsq soob}enie ob |tom."
   1 " prednazna~en  dlq pe~ati zna~enij konstant,pe remennyh i wyravenij.w ka~estwe parametrow operatora";:
   1 " pozwolqet re- daktirowatx tu stroku programmy w kotoru` ustanowlen programnyj kursor(>).po komande";:
   1 " poytka wojti w podprogrammu ne ~erez operator";:
   1 " poslednqq  wwedennaq stroka nazywaetsq teku}ej i ukazywaetsq simwolom 
   1 " posle kotorogo idet l`- boj tekst.kommentarij ne okazy- waet nikakogo wliqniq na wypolnenie programmy."
   1 " porqdok,w kotorom wypolnq`tsq  matemati~eskie wyraveniq:        
   1 " poqwlqetsq posle  odnowremennogo navatiq klawi{   ";:
   1 " poprobujte wypolnitx:":
   1 " pomnite: wse trigonometri~eskiefunkcii wy~islq`tsq w
   1 " podprogramma movet sodervatx   operatory";:
   1 " pod |lementy massiwa neobhodimozarezerwirowatx pamqtx.|to delaetsq s pomo}x` operatora";:
   1 " pe~ataet":
   1 " pe~ataet ~etnye ~isla iz       interwala (0,100).":
   1 " peresta-"
   1 " peremennymi nazywa`tsq weli~inykotorye w hode wypolneniq prog- rammy mogut izmenqtx swoi zna~e-niq.dlq obozna~eniq peremennyh  ispolxzu`tsq imena,na~ina`}iesq s bukwy(ot a do ";:
   1 " peremennye w massiwe qwlq`tsq  ego |lementami,oblada`t ob}im   imenem i razli~a`tsq tolxko nomerom,zapisywaemym w skobkah posleimeni,(indeksom).naprimer,a(10)-desqtyj |lement massiwa a."
   1 " peremennaq";:
   1 " peredaet uprawlenie ukazannoj   stroke,s kotoroj na~inaetsq pod-programma.zatem wypolnq`tsq ope-ratory podprogrammy oby~nym obrazom,poka ne wstretitsq operator";:
   1 " otno{eniq zada`tsq znakami:"
   1 " otno{enie dliny okruvnosti k eediametru-estx ~islo PI=";
   1 " osnownoe otli~ie zakl`~aetsq w tom,~to operator";:
   1 " opredelqet cwet tona(~ernil),naprimer,";:
   1 " opredelqet    qrkostx: 0-normalxnaq qrkostx,  1- powy{ennaq."
   1 " opredelqet    cwet fona.                       operator 
   1 " operatory";:
   1 " operatory opredelq`t dejstwiq  nad ~islowymi weli~inami,a takveporqdok wy~islenij.kavdaq stroka programmy sodervit operator,   sostoq}ij iz imeni i parametrow:peremennyh,konstant,metok i dr." 
   1 " operator priswaiwaniq imeet formu:";:
   1 " operaciq ";:
   1 " operacii";:
   1 " odna ili sowmestno s 9.cifrowyeklawi{i da`t takve mozai~nye simwoly.";
   1 " obratnoj k |ksponencialxnoj    qwlqetsq logarifmi~eskaq funkciqlogarifm ~isla h po osnowani` a,estx stepenx,w kotoru` nuvno    wozwesti a,~toby polu~itx h.    naturalxnyj logarifm h(logarifm  po osnowani` E)obozna~aetsq kak ";:
   1 " obratitsq k funk-cii ";:
   1 " neobhodimo zametitx,~to popytkaispolxzowatx massiwy w programmebez predwaritelxnogo opisaniq w operatore";:
   1 " nazywaetsq";:
   1 " navatie klawi{i  wyzowet wwod operatora ili cifry.";:
   1 " naprimer,programma":
   1 " naprimer,po komande";:
   1 " naprimer nuvno pods~itatx summu~isel 26 i 48.dlq |togo neobhodimo wwesti taku` komandu: ";:
   1 " naprawleniq prira}enij opredelq`tsq znakami: wwerh i wprawo '+' wniz i wlewo '-'":
   1 " naberite  nuvnoe wam ~islo,navmite klawi{u";:
   1 " movno takve ob'qwlqtx massiwy  s bolee,~em odnoj razmernostx`. naprimer w dwumernom massiwe perwyj indeks movno srawnitx s nomerom stroki,a wtoroj s poziciej wstroke.takoj massiw kak by opisywaet stranicu."
   1 " movno takve  wy~ertitx otrezok dugi,ispolxzuqdlq |togo dopolnitelxnoe ~islo, zada`}ee ugol |toj dugi w radi- anah:";:
   1 " movno ispolxzowatx l`boe wyravenie,kotoroe wy~islqetsq po oby~nym  prawilam.~isla pe~ata`tsq w desqti~nom wide.naprimer:"
   1 " movet wywesti na |kran 8 cwetow s dwumq   gradaciqmi qrkosti.cweta kodiru-`tsq ciframi ot 0 do 7.                   kodirowka cwetow:       0 - 
   1 " massiwom nazywaetsq uporqdo~en-nyj nabor weli~ih,kotoryj oboz- na~aetsq odnim imenem.massiw sostoit iz |lementow,kavdyj iz kotoryh odnozna~no opredelqetsq ime-nem massiwa i poloveniem w nem  (indeksom).imq massiwa zadaetsq po tem ve prawilam,~to i imq pe-remennoj."
   1 " logi~eskaq operaciq";:
   1 " logarifm po osnowani` a movno  polu~itx tak:";:
   1 " koordinaty zapisywa`tsq w skob-kah,tak(0,0) zadaet lewyj nivnijugol,a (255,176)-prawyj werhnij."
   1 " konstanta-|to weli~ina,kotoraq ne movet bytx izmenena w hode   wypolneniq programmy.zna~enie   konstanty odnozna~no opredelqet-sq ee napisaniem.~islowaq kons- tanta zadaetsq w wide desqti~no-go ~isla.celoe ~islo zapisywaet-sq w wide odnoj ili neskolxkih  cifr:
   1 " komx`ter";:
   1 " kompx`ter ne razli~aet propis- nye i zaglawnye(malenxkie i bolx{ie)bukwy.naprimer imq";:
   1 " kompx`ter movet wypolnqtx ~ety-re arifmeti|eskie operacii:      
   1 " kompx`ter movet 
   1 " izmeneniq wnosqt udaleniem     nenuvnyh simwolow i dobawleniem nuvnyh.":
   1 " iz bolee slovnyh operacij ";:
   1 " imeet bolx{ij urowenx star{instwa,~em";:
   1 " imeet 5 funkcij i pozwolqet wwoditx kak otdelxnye    simwoly,tak i celye slowa,dejstwie klawi{i opredelqetsq perekl`~a`}imi klawi{ami":
   1 " ili taku` formu:":
   1 " i t.d.":
   1 " i sohranqetsq do navatiq kakoj-libo odnoj   iz nih.";
   1 " i navatx klawi{u ";:
   1 " i naoborot.":
   1 " i klawi{a- ";:
   1 " i klawi{a";:
   1 " i klawi{a":
   1 " i klawi{a"
   1 " i imq";:
   1 " i imq funkcii,  wwodom operatora ";:
   1 " i  naoborot,esli h=1,to";:
   1 " gde N - nomer stroki,s kotoroj na~inaetsq podprogramma.gruppa   operatorow,ob
   1 " funkciq 
   1 " funkcii-|to za{itye w bejsik   sistemu podprogrammy,kotorye    polu~aq na whode odni zna~eniq, nazywaemye argumentami,wozwra}a-`t drugie zna~eniq-rezulxtaty.   funkcii ispolxzu`tsq w wyrave- nii prostym wkl`~eniem w nego   funkcii,naprimer,funkciq";:
   1 " esli wyraveniq razdelq`tsq dwu-mq zapqtymi,to sledu`}ee wyrave-nie pe~ataetsq w drugoj stroke. esli posle poslednego ";:
   1 " esli wwesti tretxe izmerenie   dlq nomera stranicy,to massiw   budet opisywatx knigu w wide:   (nomer stranicy,nomer stroki,   nomer stolbca)."
   1 " esli w ~isle otsutstwuet celaq ili drobnaq ~astx,to ona movet  opuskatxsq: 
   1 " esli polu~ennoe zna~enie menx{eili rawno kone~nomu zna~eni`,to uprawlenie peredaetsq operatoru,sledu`}emu srazu za operatorom  na~ala cikla";:
   1 " esli parametr";:
   1 " esli neobhodimo zapisatx o~enx bolx{oe ili o~enx malenxkoe ~is-lo,to takie ~isla zapisywa`tsq  w pokazatelxnoj forme,t.e. so   stepenqmi ~isla 10: 
   1 " esli A polovitelxno,to duga    wy~er~iwaetsq wlewo,esli otrica-telxno-to wprawo.pri A=2*
   1 " dopuskaetsq tolxko posledowa-  telxnoe ~tenie iz bloka dannyh. popytka wypolnitx operator
   1 " dlq wy~islenij:":
   1 " dlq raboty s magnitofonom estx 4 operatora";:
   1 " dlq poqsneniq programmy w nej  ispolxzu`t operatory kommentariq|tot operator na~inaetsq so slo-wa";:
   1 " dlq polu~eniq bolee wysokih ilibolee nizkih not,nado pribawitx ili otnqtx 12 dlq kavdoj oktawy wwerh ili wniz.":
   1 " dlq nego ni~em ne otli~a`tsq":
   1 " cikly ispolxzu`tsq dlq realiza-cii dejstwij,kotorye powtorq`tsqneodnokratno,wozmovno s nekoto- rymi izmeneniqmi,naprimer,pri   raznyh zna~eniqh peremennyh.":
   1 " cikl wypolnqetsq tak: operator";:
   1 " cikl obrazuetsq iz 3 |lementow: - operatora na~ala cikla";:
   1 " bukwa e ozna~aet wozwesti 10 w stepenx.~islo posle bukwy e nazywaetsq porqdkom i dolvno bytx celym.znak + dlq polovitelxnogo porqdka movet bytx opu}en.         wse ~isla mogut imetx to~nostx 9 ili 10 znakow.naibolx{ee ~islo w kompx`tere :10 w stepeni 38, naimenx{ee polovitelxnoe ~islo:  4h10 w stepeni(-39)"
   1 " bez parametrowpe~ataet pustu` stroku.oby~no on ispolxzuetsq dlq pe~ati probe- low mevdu strokami"
   1 " analogi~na po dejstwi` komande ";:
   1 " Zadanie   odnoj  iz"
   1 " Wenera   ";z$(4
   1 " Uran     ";z$(8
   1 " Solnce   ";z$(1
   1 " Saturn   ";z$(7
   1 " READ ";:
   1 " Preoblad.":
   1 " Posle |togo navmite na WWOD.":
   1 " Pluton   ";z$(10
   1 " Planety":
   1 " PRINT-";:
   1 " PRINT ";:
   1 " Neptun   ";z$(9
   1 " NOT X=1";:
   1 " NOT X=0.";:
   1 " Merkurij ";z$(3
   1 " Mars     ";z$(5
   1 " Luna     ";z$(2
   1 " LOAD,";:
   1 " EDIT ";:
   1 " Dlq poqsneniq navmite  ";:
   1 " Dlq otweta navmite na ";:
   1 " Dlq ob'qsneniq navmite ";:
   1 " DATA ";:
   1 " Bufer stroki      - 132 Bajt. ":
   1 " Bufer sohraneniq  - 512 Bajt. "
   1 " Bufer slowa       - 80  Bajt. ":
   1 " Bufer simwola     - 2   Bajt. ":
   1 " BLOK DANNYH - |to uporqdo~ennaqposledowatelxnostx ~isel,kotoraq formiruetsq s pomo}x` operato- row";:
   1 " @piter   ";z$(6
   1 " 9   Pute{estwiq.Ob}enie.U~eba.      Glubokomyslie"
   1 " 8   Razdelennye imu}estwo i         ~uwstwa.Nasledstwa.Seks.        Duhownaq viznx."
   1 " 7   Towari}estwo,brak"
   1 " 6.prostoe navatie klawi{i":
   1 " 6   Rabota,serwis,zdorowxe"
   1 " 5.perejti w revim kusora 
   1 " 5. Wyhod w BEJSIK"
   1 " 5   Seks.Twor~estwo.Risk.Deti.      Razwle~eniq"
   1 " 4.perejti w revim kusora 
   1 " 4. Dopolnitelxnaq informaciq"
   1 " 4   Doma{nie i semejnye dela"
   1 " 379 Free blocks":
   1 " 30 NEXT I":
   1 " 3.CAPS SHIFT ";:
   1 " 3. Rass~itatx nowyj goroskop":
   1 " 3 LET X=K*K  ?"
   1 " 3   Intellekt.interesy.Ob}enie"
   1 " 23-Apr-89"
   1 " 20 PRINT":
   1 " 2.SYMBOL SHIFT ";:
   1 " 2. Wywesti goroskop snowa"
   1 " 2 Files, 21 Blocks"
   1 " 2   Imu}estwo i ~uwstwa"
   1 " 10 FOR I=1 TO 100":
   1 " 1.prostoe navatie klawi{i":
   1 " 1.prosto navatx klawi{u s":
   1 " 1   Li~nosti i li~nye dela"
   1 " . |tot operator ostanaw-liwaet kompx`ter s wyda~ej soob }eniq ob |tom. w dannom primere |tot operator ne budet wypolnen.";:
   1 " .  naprimer";:
   1 " (|to wariant revima 
   1 "  ~isla s na~ala bloka dannyh:
   1 "  wosprinimaetsq kak uprawlq`}aq funkciq,napisannaq na cifrowoj klawi{e. ":
   1 "  sotrudnikow'":
   1 "  programma budet wypolnqtsq so   stroki s nomerom 
   1 "  na |krane - ";:
   1 "  kow otdela'":
   1 "  \ta programma movet datx tolx-ko ~astx toj informacii, kotoru`sodervit goroskop. No dave   takona dast gorazdo bolx{e  indiwi-dualxnogo tolkowaniq,  ~em bolx-{instwo publikuemyh w   vurnalahgoroskopow." 
   1 "  \ta programma movet datx  li{xmalu` dol` toj informacii, koto-raq sodervitsq w goroskope.":
   1 "  Znaki ukazywa`t na sposob dej-stwiq planetnogo principa.  Sek-tor ukazywaet na ego   wavnej{u`oblastx deqtelxnosti." 
   1 "  Z[[[[[[[[[[[[[[[[[[[[[[[[[[\  ","  ]                          ]  ","  ^[[[[[[[[[[[[[[[[[[[[[[[[[[_  "
   1 "  Wwod l`byh dannyh zakan~iwaet-sq navatiem klawi{i <enter>":
   1 "  Wremq i mesto  rovdeniq  o~enxwavny  dlq wernogo   sostawleniqgoroskopa. Po|tomu Wy nuvdaetesxw polnoj informacii." 
   1 "  Trenaver rabotaet w dwuh  re-"
   1 "  Tem ne menee |to pomovet   Wamisprawitx perekosy w Wa{ej viznii zaglqnutx w budu}ee."
   1 "  Su}estwuet nemalo knig, w  ko-toryh priwedeny zna~eniq planet,znakow zodiaka i sektorow.  Pos-tarajtesx najti |ti knigi w bib-lioteke. A tem wremenem priwedemosnownu` informaci` w forme tab-licy." 
   1 "  SUBROUTINE, ";:
   1 "  S pomo}x` rass~itannogo   kom-px`terom goroskopa   Wy  smoveteuznatx naprawlenie wa{ej vizni wdetalqh, wospolxzowaw{isx  odnojiz mnogih knig po astrologii" 
   1 "  S               S"
   1 "  Postarajtesx uznatx wremq rov-deniq, a takve {irotu i  dolgotumesta rovdeniq  iz   sprawo~nikaili atlasa."
   1 "  Pomo~x istolkowatx Wa{   goro-skop Wam movet informaciq o ras-polovenii planet na Wa{ej   kar-te."
   1 "  Ona raspolagaetsq w  odnom  izdwenadcati znakow zodiaka,     atakve w odnom iz 12-ti  sektorowploskosti |kliptiki." 
   1 "  Nau~nye issledowaniq da`t  wsebolx{e osnowanij weritx   tradi-cionnomu mneni` astrologow,  ~toSolnce,  Luna i planety okazywa-`t wliqnie na harakter ~eloweka,a takve na sobytiq, proishodq}iena Zemle." 
   1 "  Kavdaq planeta wliqet na opre-delennyj viznennyj princip." 
   1 "  ENTER.";:
   1 "  Dlq otweta navmite ";:
   1 "  Dlq ob'qsneniq navmite ";:
   1 "  Astrologi~eskie faktory wliq`tna wse  sfery  vizni -  finansy,zdorowxe, seks, karxeru.":
   1 "  AS FILE #3":
   1 "  AS FILE #1":
   1 "  30 m. !/ ";:
   1 "   |lementow teksta.":
   1 "   zadaet krasnyj cwet tona.":
   1 "   waniq.":
   1 "   teksta":
   1 "   stroki)  wyhod  w  komandnyj"
   1 "   revim":
   1 "   programmy.":
   1 "   preobrazowanie teksta.":
   1 "   polxzuemye w redaktore  K52.":
   1 "   pe~ataet 
   1 "   nicam i sekciqm.":
   1 "   na |krane - ";:
   1 "   na |krane - 
   1 "   mogatelxnymi fajlami.":
   1 "   i sekcij.":
   1 "   ^toby prodolvitx, navmite            l`bu` klawi{u"
   1 "   \krannyj redaktor  postawlq-"
   1 "   Zapusk redaktora osu}estwlq-"
   1 "   Wesx kompleks ras~etow  zaj-  met u kompx`tera ne bolee dwuh  minut."
   1 "   Wa{ okon~atelxnyj  rezulxtat"
   1 "   W krasnoj stroke budut poqw-"
   1 "   TRENAVER NABORA SIMWOLOW"
   1 "   Programma K52  prednazna~ena"
   1 "   Pri velanii Wy smovete   wy-  westi na printer  shemu raspo-  loveniq planet w moment rovde-  niq."
   1 "   Po zakonam Keplera kompx`ter  rass~itywaet  sej~as    to~noe  polovenie planet w moment rov-  deniq.   Ispolxzuq |ti dannye,  dlq Was budet sostawlen  goro-  skop."
   1 "   PRAWILXNYJ OTWET":
   1 "   Navmite na ";:
   1 "   Navmite  klawi{u  ";:
   1 "   Navmie odnowremenno  klawi{i"
   1 "   Na klawi{ah  najdite  nuvnoe":
   1 "   Koli~estwo wwedennyh  probe-":
   1 "   Dlq wwoda  operatorow  nuvno"
   1 "    movet sodervatx parametry wywoda"
   1 "    ispolxzuetsq dlq polu~eniq dopolnitelxnyh simwolow(funkcij), raspolovennyh w werhnej ~asti klawi{."
   1 "    Sodervimoe":
   1 "    SUB -";:
   1 "    Q -";:
   1 "    OTWET:":
   1 "    D -";:
   1 "    Algoritm:       Programma:":
   1 "     wyzywaet pe~atx so stroki 150.":
   1 "     o o     o"
   1 "     na |krane - ";:
   1 "     TO -k":
   1 "     Po~ti za 0.000 01 sekundy."
   1 "     Pered na~alom raboty nuvno"
   1 "     PRAWILXNYJ OTWET":
   1 "     OTWET:"
   1 "     Navnite na ";:
   1 "     M M     M"
   1 "     GO -";:
   1 "     D ";:
   1 "     7 STOP":
   1 "     6 NEXT K":
   1 "     5 PRINT X,Z":
   1 "     5 PRINT X":
   1 "     5 NEXT K":
   1 "     5 IF K<16 THEN GO TO 3":
   1 "     5 IF K<10 THEN GO TO 3":
   1 "     4 STOP":
   1 "     4 PRINT J":
   1 "     4 LET Z=K+K":
   1 "     3 LET K=K+2":
   1 "     3 LET K=K+1":
   1 "     3 LET J=11-K":
   1 "     2 LET K=10":
   1 "     2 LET K=1":
   1 "     2 FOR K=10 TO 1 STEP -1":
   1 "     2 FOR K=1 TO 8 STEP 1":
   1 "     2 FOR K=1 TO 20 STEP 1":
   1 "     2 FOR K=1 TO 10 STEP 3":
   1 "     16 STOP":
   1 "     15 RETURN":
   1 "     15 IF K<X
   1 "     14 NEXT K":
   1 "     14 LET M=M*X":
   1 "     13 LET M=M*X":
   1 "     13 LET K=K+1":
   1 "     12 LET K=0":
   1 "     12 FOR K=1 TO X":
   1 "     10 REM SUBROUTINE":
   1 "     10 REM PODPROGRAMMA":
   1 "     1 REM ZIKL6":
   1 "     1 REM ZIKL4":
   1 "     1 REM ZIKL2":
   1 "     1 REM Z2":
   1 "     1 REM DOWN":
   1 "     1 REM CIKL2":
   1 "     1 REM B1":
   1 "     1 REM B":
   1 "     1 ?"
   1 "     (Tgrinw=Tmosk+3~)"
   1 "     ! ! ... !":
   1 "      pri otricatelxnom argumente    okruglenie proishodit k blivaj- {emu celomu ne bolx{emu,~em     argument:";:
   1 "      pri kursore 
   1 "      Q W E R T Y U I O P"
   1 "       q~eek:":
   1 "       naruvnu` powerhnostx,":
   1 "       A S D F G H J K L"
   1 "       5.
   1 "       4.CAPS SHIFT";:
   1 "       3.prostoe navatie klawi{i":
   1 "       .RUN MX1:K52":
   1 "        pri kursore ";:
   1 "        Z X C V B N M"
   1 "        OTWET:"
   1 "        0. Net."
   1 "        --KONEC ZANQTIQ--"
   1 "        " 
   1 "         na |krane - ";:
   1 "         Wywod":
   1 "         <[>"
   1 "         2m.":
   1 "          pri kursore 
   1 "          WRITE":
   1 "          RUN":
   1 "          PRINT":
   1 "          O"
   1 "          9     C=9"
   1 "          64    H=64"
   1 "          49    G=49"
   1 "          4     B=4"
   1 "          36    F=36"
   1 "          25    E=25"
   1 "          16    D=16"
   1 "          1*2*3*4 ?"
   1 "           a kompx`ter wywedet otwet 4 t.e.koli~estwo bukw w slowe";:
   1 "            w 100 000 raz."
   1 "            S"
   1 "            A"
   1 "              Skolxko {agow?"
   1 "               PRINT X":
   1 "               6 STOP":
   1 "               5 PRINT X"
   1 "                  X(8)->64"
   1 "                  X(7)->49"
   1 "           
   1 "          
   1 !fZ"Am!yZ"Dm!
   1 !*t+58E-05
   1 !                   
   1  ~enie, zapre}enie."
   1  wyzywaet poqwlenie zaglawnyh bukw.";
   1  wlovennymi ."
   1  wid$ Prowidenie dostawilo programmu Nikola` Rod&onowu, daby sej blistatelxnyj muv
   1  w zakl`~enie prodemonstriruem  dejstwie grafi~eskih operatorow.":
   1  vennaq |nergiq."
   1  uslowie";:
   1  urok 9 ":
   1  urok 8 ":
   1  urok 7 ":
   1  urok 6 ":
   1  urok 5 ":
   1  urok 4 ":
   1  urok 3 ":
   1  urok 2 ":
   1  urok 1 ":
   1  to translate ?
   1  taw stolbec ":
   1  tangens h ":
   1  sootwetstwu`}u` klawi{u. "
   1  s ispolxzowaniem podprogrammy ":
   1  rabo~$e sostoqn&e, a poeliku wozmovno i usower{$nstwowal
   1  prowerqet zna~e-niq dwuh operandow.esli oni oba ne rawny 0,to rezulxtat operaciine rawen 0.           "
   1  primer programmy ( igra dlq 2  ~elowek - ugadaj ~islo)         ":
   1  poprobuj e}e raz":
   1  peremennye ":
   1  operato-rom 
   1  operaciq ";:
   1  operacii otno{eniq wypolnq`tsq slewa naprawo  posle wseh arifmeti~eskih operacij,t.e.urowenx   star{instwa samyj nizkij i odinakowyj dlq wseh operacij otno{e- niq.rassmotrim dwe logi~eskie   operacii";:
   1  obu~a`}aq programma ":
   1  obnulq`tsq wseperemennye,ispolxzu`]iesq w programme,a programma zapuskaetsq nawypolnenie.programma wypolnqetsqs perwoj stroki po porqdku. programmu movno wypolnqtx s l`boj   stroki.dlq |togo nado w komande";:
   1  ne wliqet na kl`~ewye slowa,a w revime kursora ";:
   1  navmi l`bu` klawi{u"
   1  navatie klawi{ w |tom revime priwodit k wwodu bukwy ili cifry,nanesennoj na   klawi{e.dlq oboih revimow ";:
   1  mednonogow w.s. A","A        1992       A","OKKKKKKKKKKKKKKKKKKKP"
   1  liwatx otno{eniq"
   1  l`bye operatory
   1  kosinus h ":
   1  konstanty ":
   1  kakoj operator   opisywaet razmernostx massiwa ?":
   1  kakaq funkciq    wy~islqet modulx ~isla ?":
   1  kakaq funkciq    wy~islqet korenx kwadratnyj iz  ~isla ?":
   1  i umnovitx na    180."
   1  i priswaiwaet ego zna~e-nie uprawlq`}ej peremennoj ciklazatem wy~islqetsq wyraveniq pos-le slow";:
   1  gde 'dlitelxnostx'i'wysota zwu-ka'nekotorye ~islowye wyraveniq.dlitelxnostx zadaetsq w sekundaha wysota w polutonah ot osnowno-go tona DO:pri polovitelxnyh ~islah-wy{e noty DO,pri otricatelx-nyh- nive noty DO."
   1  g.glazow 1990 g.":
   1  fioletowyj 
   1  esli uslowie istinno,to wypolnq`tsq operatory sledu`}ie posle ";:
   1  dlq whoda w urok navmite 
   1  den|"''" 3. Kolihestvo projit{x dne
   1  arktangens h "
   1  arksinus h ":
   1  arkkosinus h ":
   1  arifmeti~eskie operacii "
   1  \mocii, instinkty"
   1  Zasten~iwyj,razumnyj"
   1  Z A G R U V A E T S Q ":
   1  Y.Kovalevsky /S.Peterburg/1991"
   1  Wedu}imi w wa{ej vizni qwlq`tsq predpriim~iwostx i iniciatiwa.  Wam nuvno po~uwstwowatx sebq podkontrolem i w to ve wremq neza- wisimym, ~toby osu}estwitxsq.   Wam nuvno ~to-to postoqnnoe dlq togo, ~toby zawer{itx na~atoe.  Wy materialist i prakti~nyj ~e- lowek. I}ite obespe~ennosti.                                    Wy twor~eskaq li~nostx  s  qrkimumom. Inogda bywaete neposledo- watelxny. Umejte wyslu{iwatx,   rasslablqtxsq i sobiratxsq.     Budxte sosredoto~enny .        
   1  WEER dlitelxnostx,wysota zwuka 
   1  VERYFY,LOAD,MERGE ";:
   1  VERIFY ";:
   1  Utwerditelxnyj,dogmat."
   1  Uspeh, rost"
   1  Twor~eskij,weselyj"
   1  Sposobnostx ustanaw-        
   1  Samokontrolx, ograni-       
   1  Razumnyj,pokrowit."
   1  RUN 100 ";:
   1  RETURN ":
   1  RESTORE":
   1  RESTORE ";:
   1  RESTORE ":
   1  RADIANAH 
   1  Pylkij, skrytnyj"
   1  Pritqgatelxnyj"
   1  PRINT AT 11,16;""*""";:
   1  PODPROGRAMMY."
   1  PLOT X,Y ";:
   1  PAPER 1":
   1  PAPER ";:
   1  Ostorovnyj,~estol`biw."
   1  Ostorovnyj,mnogostor."
   1  O G L A W L E N I E "
   1  O G L A W L E N I E
   1  New name of file 
   1  MERGE ";:
   1  LPRINT ":
   1  LOGa X=LN X/LN a ":
   1  LOAD,SAVE,VERIFY,  MERGE."
   1  LIST 150 ";:
   1  Kriti~eskij,doto{nyj" 
   1  Issledowat.,obosobl."
   1  Intellekt,ob}itelxn."
   1  Indiwidualxnostx"
   1  I16.FAV B
   1  Glubokij,me~tatelxnyj"
   1  Garmoni~nyj,sobrannyj"
   1  GO TO N ";:
   1  GO SUB N ":
   1  GO SUB , RETURN ";:
   1  FLASH ";:
   1  Disk by LagSoft 14.02.1994 
   1  DRAW X,Y ";:
   1  DIM C(3,6) ":
   1  DIM B(5) ";:
   1  DELETE ( CAPS SHIFT + 0 )"
   1  DELETE ";:
   1  COPPER FEET , 1992":
   1  CONTINUE ";:
   1  CIRCLE X,Y,R ";:
   1  CAPS SHIFT ";:
   1  BRIGHT ";:
   1  BREAK ";:
   1  BORDER 3":
   1  BORDER 2":
   1  BORDER 1":
   1  BORDER ";:
   1  Agressiwnostx, prilo-       
   1  AND,OR ";:
   1  AND , OR ";:
   1  A C E H.":
   1  ;                        
   1  :                                                     
   1  60 INPUT X                      70 IF X
   1  23 , 0 , 34567"
   1  20 PRINT A/2":
   1  1992       Copper Feet";
   1  1992            Copper Feet                                        Mednonogov A.S.                                          
   1  1992             Copper Feet
   1  1991 by InterCompex"
   1  1983 by Somerville"
   1  1030 GO TO 1000":
   1  1020 PRINT ""0.";:
   1  10 LET C=234  (C=234)           20 LET C=C-4  (C=230) ":
   1  10 INPUT";:
   1  10 INPUT X                      20 IF X
   1  - |ksponenta -   E w stepeni h( E=2.718281...)"
   1  (om 1581r.)";#q;"
   1  (CAPS SHIFT+1),"
   1  !                       
   1  !                     
   1   wypolnq`tsq tak: operator";:
   1   primer  ":
   1   operatory  bejsika  ":
   1   massiwy  ":
   1   kakaq komanda   sluvit dlq zapuska programmy    na wypolnenie ?":
   1   i}et ukazannu` programmu, on    wywodit imena wseh programm,uve pro~itannyh s lenty."
   1   i  Pluton r  osta`tsq   wodnih i teh ve znakah w  te~eniimnogih let i po|tomu ime`t boleesilxnoe wliqnie, ~em wnutrennie."; 
   1   i  2,  zatem wwedite nomer uroka-(1-20) ili 0 dlq buta":
   1   at 'stroka','stolbec' 
   1   XOPT B.H."
   1   Skorpion
   1   RABOTA S MAGNITOFONOM  "
   1   PROGRAMMIROWANIE  ZWUKOW  ":
   1   Continue ?
   1   CIKLY  "
   1   Bliznecy
   1   6.                                                         
   1   5. _______    6. ___ ___     7. _______    8. ___ ___      
   1   5.                                                         
   1   4.                                                         
   1   3.                                                         
   1   2.                                                         
   1   10 FOR N=1 TO 10                20 READ B(N)                    30 NEXT N                       40 DATA 10,2,5,3,6,7,3,12,1,0":
   1   1. _______    2. ___ ___     3. _______    4. ___ ___      
   1   1.                                                         
   1   "GORBISOFT"  
   1   "ENTER"  
   1    ~ A S T X   W T O R A Q ":
   1    primer   ":
   1    blok  dannyh   "
   1    PODPROGRAMMy   ":
   1    Find name
   1    40 GO TO 10                     50 LET Y=SIN X/X"
   1     |tot parametr pereme}aet pozici`wywoda w mesto,opredelqemoe nomerom stroki i stolbca.nomer stro-ki menqetsq ot 0 do 21,a nomer   stolbca ot 0 do 31."
   1     priswaiwaet peremennym";:
   1     obu~a`}aq programma         ":
   1     Oblastx aktiwnosti    
   1     FOR X=3 TO 10 STEP 2         LET X=12                     LET A=1
   1      wy~er~iwaetsq polnaq okruvnostx."
   1      _______       _______        _______       _______      
   1      ___ ___       _______        ___ ___       ___ ___      
   1      62.  
   1      58.  
   1      28.  
   1      21.  
   1      18.  
   1       W takom
   1       File
   1       52.  
   1       11. 
   1       10.  
   1        I%n|      I%l|      Avgust    Sentybr|  Oktybr|   Noybr|    Dekabr|   
   1         zapisywaet programmu i  peremen-nye na magnitofon.":
   1         10 LET C=234":
   1          G O R O S K O P      
   1          20 LET C=C-4":
   1            BIORITM\             
   1              1.2 h10 w 34 stepeni = 1.2e34   0.000000002 = 2e-9"
   1                 4 - 
   1                    GO TO 130                    FOR A=1
   1                    6 - 
   1                    5 - 
   1                    3 - 
   1                    0O TO 130                    0O TO 5                      0LS                          0LS                          0IST                         0IST                         0ET B=A                      0RINT W                      0ETURN                       0EXT R                       0ET Z=X                      r
   1                     7 - 
   1                      R
   1                      2 - 
   1                       THIS PROGRAMME HAS BEEN PREPARED BY A PROFESSIONAL ASTROLOGER AND MEMBER OF THE ASTROLOGICAL ASSOCIATION                                 *G
   1                                 "
   1                                         Mednonogov V.S.          
   1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        *            *                 *           *                    **             *                 *               *  *              *                         *                                           V
   1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             
   1                                                                                       
   1                                                                        
   1                                                                  
   1                           
   1                         
   1                       
   1